• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userform da pdf önizleme

A

Ali Excel Öğreniyor

Katılım
6 Aralık 2021
Mesajlar
38
Excel Vers. ve Dili
Excel2016
Türkçe
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..
 
Merhaba,

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

Doğru mudur?
 
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
 

Ekli dosyalar

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
Genişletmek için tıkla ...



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
 

Ekli dosyalar

Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst