PDF dosyasını JPG Türü Resime Çevir

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

PDF dosyasını JPG Türü Resime Çevir

İleti#1)  Tarkan VURAL » 12 Arl 2013 16:21

Bana lazım oldu, belki başkaları da faydalanmak ister. PDF dosyasını JPG dosyasına çevirmek istedim. Online olarak bazı web siteleri bunu yapıyor. Ama kodlarla yapmak daha keyifli. :) Yabancı bir sitede uygulanmış kodları inceleyip derledim.

Öncelikle şu bağlantıdaki demo dosyayı indirip kurmanız gerekiyor.
Universal Document Converter

Kurulum bittikten sonra referans tablosunu açıp ilgili referansı (Universal Document Converter Type Library) işaretleyin.

Kod: Tümünü seç
Sub PDFiJPEyeCevir()
PrintAdobePDFToJPEG "C:\Users\Tarkan\Desktop\Scan1.PDF"
End Sub

Private Sub PrintAdobePDFToJPEG
(strFilePath As String)
  Dim objAdobeApp As Object
  Dim itfAVDocument As Object
  Dim itfPDDocument As Object
  Dim nPages As Long

  Dim objUDC As New UDC
.APIWrapper
  Dim itfPrinter As UDC
.Printer
  Dim itfProfile As UDC
.IProfile

  Set objUDC 
= New UDC.APIWrapper
  Set itfPrinter 
= objUDC.Printers("Universal Document Converter")
  Set itfProfile = itfPrinter.Profile
  objUDC
.DefaultPrinter = "Universal Document Converter"
  profilepath = "C:\Users\Tarkan\AppData\Roaming\UDC Profiles\"
  itfProfile.Load (profilepath & "
PDF to JPEG.xml")
  itfProfile.OutputLocation.Mode = LM_PREDEFINED
  itfProfile.OutputLocation.FolderPath = "
C:\PDF2JPG"
  itfProfile.PostProcessing.Mode = PP_OPEN_FOLDER

  On Error Resume Next
  Set objAdobeApp = CreateObject("
AcroExch.App")
  Set itfAVDocument = CreateObject("
AcroExch.AVDoc")
  If itfAVDocument.Open(strFilePath, "") = True Then
    Set itfPDDocument = itfAVDocument.GetPDDoc()
    nPages = itfPDDocument.GetNumPages()
    Call itfAVDocument.PrintPagesSilent(0, nPages - 1, 0, True, True)
    Call itfAVDocument.Close(True)
    Set itfAVDocument = Nothing
    Set itfPDDocument = Nothing
  End If
    
  Call objAdobeApp.Exit
  Set objAdobeApp = Nothing
  Set objUDC = Nothing: Set itfPrinter = Nothing: Set itfProfile = Nothing
  profilepath = vbNullString: strFilePath = vbNullString
End Sub


Sonra kodları çalıştırarak hedefteki PDF dosyasını JPG resmine çevirebiliyorsunuz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: PDF dosyasını JPG Türü Resime Çevir

İleti#2)  assenucler » 13 Arl 2013 16:08

Tarkan VURAL yazdı:Öncelikle şu bağlantıdaki demo dosyayı indirip kurmanız gerekiyor.
Universal Document Converter

Kurulum bittikten sonra referans tablosunu açıp ilgili referansı (Universal Document Converter Type Library) işaretleyin.

Kod: Tümünü seç
Sub PDFiJPEyeCevir()
PrintAdobePDFToJPEG "C:\Users\Tarkan\Desktop\Scan1.PDF"
End Sub

Private Sub PrintAdobePDFToJPEG
(strFilePath As String)
  Dim objAdobeApp As Object
  Dim itfAVDocument As Object
  Dim itfPDDocument As Object
  Dim nPages As Long

  Dim objUDC As New UDC
.APIWrapper
  Dim itfPrinter As UDC
.Printer
  Dim itfProfile As UDC
.IProfile

  Set objUDC 
= New UDC.APIWrapper
  Set itfPrinter 
= objUDC.Printers("Universal Document Converter")
  Set itfProfile = itfPrinter.Profile
  objUDC
.DefaultPrinter = "Universal Document Converter"
  profilepath = "C:\Users\Tarkan\AppData\Roaming\UDC Profiles\"
  itfProfile.Load (profilepath & "
PDF to JPEG.xml")
  itfProfile.OutputLocation.Mode = LM_PREDEFINED
  itfProfile.OutputLocation.FolderPath = "
C:\PDF2JPG"
  itfProfile.PostProcessing.Mode = PP_OPEN_FOLDER

  On Error Resume Next
  Set objAdobeApp = CreateObject("
AcroExch.App")
  Set itfAVDocument = CreateObject("
AcroExch.AVDoc")
  If itfAVDocument.Open(strFilePath, "") = True Then
    Set itfPDDocument = itfAVDocument.GetPDDoc()
    nPages = itfPDDocument.GetNumPages()
    Call itfAVDocument.PrintPagesSilent(0, nPages - 1, 0, True, True)
    Call itfAVDocument.Close(True)
    Set itfAVDocument = Nothing
    Set itfPDDocument = Nothing
  End If
    
  Call objAdobeApp.Exit
  Set objAdobeApp = Nothing
  Set objUDC = Nothing: Set itfPrinter = Nothing: Set itfProfile = Nothing
  profilepath = vbNullString: strFilePath = vbNullString
End Sub


Sonra kodları çalıştırarak hedefteki PDF dosyasını JPG resmine çevirebiliyorsunuz.


Değerli üstadım, merhabalar ve hayırlı Cuma'lar.

Demo'yu kurdum. Kodları nereye yazacağım? Kurulum bittikten sonra referans tablosunu ve referansı neden göremiyorum?

Lütfen bilgisizliğimi mazur görün.

Selam ve sevgiler.
Kullanıcı avatarı
assenucler
Site Dostu
 
Adı Soyadı:Ahmet Selim Şenüçler
Kayıt: 01 Şub 2009 16:45
Konum: Emekli
Meslek: Yeminli Mali Müşavir
Yaş: 72
İleti: 627
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: PDF dosyasını JPG Türü Resime Çevir

İleti#3)  Tarkan VURAL » 13 Arl 2013 16:39

Kodlar herhangi bir module içinde olabilir. Kurulum sonrası referans listelenmiyorsa, muhtemelen 64 bit işletim sisteminiz vardır. İlgili dosya C:\windows\system32\spool\drivers\w32x86\3\ klasöründeki udceng.exe dosyasıdır. Bu dosyayı gözat (browse) ile çağırmanız gerekiyor olabilir. 64bit sistemim olmadığından deneyip yardımcı olamıyorum.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: PDF dosyasını JPG Türü Resime Çevir

İleti#4)  assenucler » 18 Oca 2017 20:54

Değerli Dostlar;


İyi akşamlar.

Windows 10 64 bit işletim sistemi kullanıyorum. Yukarıdaki yazılımı Sayın Tarkan'ın açıklamasını dikkate almama rağmen çalıştıramıyorum.

Yukarıdaki işletim sistemine kurabilen dostlardan yardım rica ediyorum.

Sevgi ve saygılar.
Kullanıcı avatarı
assenucler
Site Dostu
 
Adı Soyadı:Ahmet Selim Şenüçler
Kayıt: 01 Şub 2009 16:45
Konum: Emekli
Meslek: Yeminli Mali Müşavir
Yaş: 72
İleti: 627
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: PDF dosyasını JPG Türü Resime Çevir

İleti#5)  assenucler » 18 Oca 2017 20:59

Tarkan Vural üstadın önerdiği yolu denetim, çalıştırmayı başaramadım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
assenucler
Site Dostu
 
Adı Soyadı:Ahmet Selim Şenüçler
Kayıt: 01 Şub 2009 16:45
Konum: Emekli
Meslek: Yeminli Mali Müşavir
Yaş: 72
İleti: 627
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy


Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe