Userform da pdf önizleme

Ali Excel Öğreniyor · 22 Şubat 2022

Herkese tekrardan merhaba.

Öncelikle dosya şirket dosyası olduğundan ve veri alışverişi olmadığından dosyayı paylaşamıyorum.

Benim yaptığım bir program var
Bu program girdiğim kodu fileserver içinde arayıp pdf resmini önizliyor veya yazdırıyor.
Fakat dahada ilgi çekici birşey yapmak istiyorum

Userformda textbox a ürün kodunu girdiğimde userformdaki image kutuğuna aktarılmasını istiyorum. Acaba bu mümkün mü?

Şimdiden teşekkürler..

Ali Excel Öğreniyor · 23 Şubat 2022

Bir fikri olan yok mu?

Trilenium · 23 Şubat 2022

Merhaba,

Başlıkta PDF önizleme demişsiniz fakat, içerikte pdf i image olarak izlemek istediğinizi anlıyorum.

Doğru mudur?

Korhan Ayhan · 23 Şubat 2022

Merhaba,

Boş bir UserForm üzerine aşağıdaki nesneleri oluşturunuz.

WebBrowser1
TextBox1
CommandButton1

Sonra formunuzun kod bölümüne aşağıdaki kodu uygulayınız.

TextBox1 nesnesine pdf dosya yolunu (Örnek "C:\Belgelerim\Deneme.pdf" şeklinde) kopyalayıp butona tıkladığınızda form üzerinde önizleme oluşacaktır.

C++:

Option Explicit

Private Sub CommandButton1_Click()
    Dim Pdf_File As String
  
    Pdf_File = Me.TextBox1
  
    Application.ScreenUpdating = False
    Me.WebBrowser1.Navigate "about:blank"
    If Pdf_File <> "" Then
        Me.WebBrowser1.Document.Write "<HTML><Body><embed src=""" & Pdf_File & _
                                      """ width=""100%"" height=""100%"" /></Body></HTML>"
        Me.WebBrowser1.Refresh
    End If
    Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Initialize()
    Me.Caption = "UserForm Üzerinde PDF Önizleme"
End Sub

Ali Excel Öğreniyor · 23 Şubat 2022

Trilenium' Alıntı:
Merhaba,

Başlıkta PDF önizleme demişsiniz fakat, içerikte pdf i image olarak izlemek istediğinizi anlıyorum.

Doğru mudur?

Evet doğru hocam, userform üzerindeki image1 e aktarılmasını istiyorum. Bu jpg de mümkün ama pdf de bir yol bulamadım

pekman · 1 Nisan 2022

Korhan Ayhan' Alıntı:
Merhaba,

Boş bir UserForm üzerine aşağıdaki nesneleri oluşturunuz.

WebBrowser1
TextBox1
CommandButton1

Sonra formunuzun kod bölümüne aşağıdaki kodu uygulayınız.

TextBox1 nesnesine pdf dosya yolunu (Örnek "C:\Belgelerim\Deneme.pdf" şeklinde) kopyalayıp butona tıkladığınızda form üzerinde önizleme oluşacaktır.

C++:

Option Explicit Private Sub CommandButton1_Click() Dim Pdf_File As String Pdf_File = Me.TextBox1 Application.ScreenUpdating = False Me.WebBrowser1.Navigate "about:blank" If Pdf_File <> "" Then Me.WebBrowser1.Document.Write "<HTML><Body><embed src=""" & Pdf_File & _ """ width=""100%"" height=""100%"" /></Body></HTML>" Me.WebBrowser1.Refresh End If Application.ScreenUpdating = True End Sub Private Sub UserForm_Initialize() Me.Caption = "UserForm Üzerinde PDF Önizleme" End Sub

Hocam merhaba,

Ekte vermiş olduğum dosyadaki kahverengi ve mavi renklerin yazılı olduğu hücrelerdeki veriye göre klasörleri güncelleyerek listeleyip, içlerindeki pdf'lerden istediğimizin ön izlemesini yapacak buton oluşturmamız mümkün müdür?

Şimdiden teşekkürler

Userform da pdf önizleme

Ali Excel Öğreniyor

Ali Excel Öğreniyor

Trilenium

Destek Ekibi

Korhan Ayhan

Administrator

Ekli dosyalar

Ali Excel Öğreniyor

pekman

Ekli dosyalar