Çözüldü Yapmak istediğim uygulamaya yönelik tavsiyeniz.

[OğuzTürkyılmaz]

Merhaba Yapmak istediğim uygulamaya yönelik nette ve forumda konu başlıkları araması yaptığımda hep excel sayfasının PDF formatına dönüştürülerek kaydedilmesi seçenekleri ve çözümleri ile karşılaşıyorum. Uygulamak istediğim olay Userform da butona tılayarak Bilgisayarımın herhangi bir yerindeki bir pdf dosyasını seçebilmek ve onu excel userformun üzerinde bir alanda göstermek ve diğer bilgileri girdikten sonra userformun üstünde girdiğim numarayla ilişkilendirerek PDF dosyasını Çalışma kitabımın da içinde bulunduğu klasörün içindeki ayrı bir PDF klasörüne kaydetmekten ibaret. Bu işlem için konu başlığı yada varsa link paylaşmanızı rica ederim.

 

[Adnan]

burada bir örnek var. Bildiğiniz gibi pdf tamamen resimden elde edilmiş ise onun okunması için ocr programı gerekiyor. Diğer çözümlemeler var ancak pdf ten excele her zaman hatasız olacak diye bir kayıt yok. Yazdırma kalitesine göre değişiklik gösterebilir

 

[OğuzTürkyılmaz]

burada bir örnek var. Bildiğiniz gibi pdf tamamen resimden elde edilmiş ise onun okunması için ocr programı gerekiyor. Diğer çözümlemeler var ancak pdf ten excele her zaman hatasız olacak diye bir kayıt yok. Yazdırma kalitesine göre değişiklik gösterebilir

Adnan bey ben pdf olan bir dosyayı excel formatına çevirmek istemiyorum. Pdf sayfasını excel userform üzerinde ımage olarak PDF yi görüntülemek ve bu pdf i excel dosyamın içindeki klasöre kaydetmek istiyorum. Personel kayıt programı gibi bir şey yaptığımızı düşünelim bir personelin jpeq resmini personel kayıt formunda bir alana yükleyip bu fotoğrafı personel tc kimlik numarası ile klasöre kaydetmek gibi düşünün. Personel kayıt formunda personelin resmini form üstünde gösterebiliyorsunuz bu şekilde. Bense buna benzer uygulamayı PDF dosyalarda yapmak istiyorum.

 

[Adnan]

Örneğinizi ekleyin yardımcı olmaya çalışayım. Ayrıca açılacak pdf in boyutu ne kadar olacak

 

[OğuzTürkyılmaz]

Örneğinizi ekleyin yardımcı olmaya çalışayım. Ayrıca açılacak pdf in boyutu ne kadar olacak

PDFNİN BOYUTU 1 A4 SAYFASI ama ben biraz cebelleşeyim araştırayım zaten sağosun herkes yardımcı oluyor ama uğraşmadan da öğrenilmiyor. Sadece örnek vs bir bulabilsem oradan yürüyüp kendime uygulamaya çalışacağım zaten orda mutlaka bir duvara tosluyorum. Yapamadığım yerde O zaman yardım isterim zaten. Ama formun görüntüsü aşağıdaki gibi. Belge yükleye basıp açılacak windows ekranından pdf belgeyi seçip poliçe pdf ekranına yükleyeceğim üüzerinde tıklayıncada görüntüyü büyütürüm diye düşünüyorum mümkündür herhalde. pdfi forma aldıktan sonrada kaydet tuşuna bastığımda poliçe numarasında yazan noyu pdfin adına atayıp excel uygulamamla aynı klasörün içindeki PDFler adlı klasöre kaydedeceğim. Klasör yolunuda giriş formundaki dosya yolunda göstereceğim.

 

[Adnan]

size kolaylık olsun toolbox/additional control den pdfreader i seçmeyi unutmayın
Private Sub CommandButton1_Click()
'yapılacaklar pdf dosyasının yolu alınacak,sonra bu yol ve dosya ismi "ThisWorkbook.Path & "\Haziran bilgilendirme.pdf" ile değiştirilecek kaydet tuşu ile ilgili bölüme kaydedilecek
Me.Width = 550
Me.Height = 350

With AcroPDF1
.Width = 200
.Height = 300
.LoadFile ThisWorkbook.Path & "\Haziran bilgilendirme.pdf"

End With
End Sub

 

[OğuzTürkyılmaz]

size kolaylık olsun toolbox/additional control den pdfreader i seçmeyi unutmayın
Private Sub CommandButton1_Click()
'yapılacaklar pdf dosyasının yolu alınacak,sonra bu yol ve dosya ismi "ThisWorkbook.Path & "\Haziran bilgilendirme.pdf" ile değiştirilecek kaydet tuşu ile ilgili bölüme kaydedilecek
Me.Width = 550
Me.Height = 350

With AcroPDF1
.Width = 200
.Height = 300
.LoadFile ThisWorkbook.Path & "\Haziran bilgilendirme.pdf"

End With
End Sub

Adnan bey maalesef ben 64 bit kullanıyorum sanırım ondan bendeki toolbox addcontrols menüsünde Pdfreader yok.

 

[Adnan]

sizde acrobat yüklü değil mi

 

[OğuzTürkyılmaz]

Ben bulduğum örneklerden bir şeyler yapmaya çalıştım fakat PDF dosyayı forma çekmeye kalktığımda Image olarak almaya çalıştığı için hata veriyor.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[OğuzTürkyılmaz]

sizde acrobat yüklü değil mi

bende icecreamPDF programı yüklü

 

[Adnan]

Additional dan onu seçin gönderdiğim kod ile deneyin
imgProfil.Picture = LoadPicture(path) zaten resim yüklemeye çalışıyorsunuz. resim olmazsa hata olur.

 

[Adnan]

tabii olarak With AcroPDF1 yerine oradaki nesne ismini yazmalısınız

 

[OğuzTürkyılmaz]

Additional dan onu seçin gönderdiğim kod ile deneyin
imgProfil.Picture = LoadPicture(path) zaten resim yüklemeye çalışıyorsunuz. resim olmazsa hata olur.

Maalesef additional controls menümde içinde PDF yada icecream ifadesi içeren herhangi bir kontrol yok.

 

[Adnan]

sizde acrobat yükleyin

 

[OğuzTürkyılmaz]

sizde acrobat yükleyin

Yükledim ve addcontrolsde de adobepdfreader seçeneğini işaretledim.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Me.Width = 550 ye geldiğinde object required hatası alıyorum

 

[Adnan]

o formun boyutlandırması içindi iptal edebilirsin

 

[Adnan]

imgProfil.Picture = LoadPicture(path)
lblProfilUrl = path
bunlar hata verir

 

[Adnan]

& "\C:\Users\oguzt\Desktop\KT GRUP\Poliçeler_PDF.pdf" burası hatalı zaten path ile adresi almıştın Debug.print path yaz gelen adresi kontrol et nereye kadar yazacağını gör

 

[Adnan]

Dim DialogBox As FileDialog
Dim path As String
Set DialogBox = Application.FileDialog(msoFileDialogFilePicker)

DialogBox.AllowMultiSelect = False

DialogBox.Filters.Clear
DialogBox.Filters.Add "Pdf Dosyaları", "*.pdf?", 1

DialogBox.Show

If DialogBox.SelectedItems.Count = 1 Then

path = DialogBox.SelectedItems(1)
Debug.Print path
End If

'yapılacaklar pdf dosyasının yolu alınacak,sonra bu yol ve dosya ismi "ThisWorkbook.Path & "\Haziran bilgilendirme.pdf" ile değiştirilecek kaydet tuşu ile ilgili bölüme kaydedilecek

Me.Width = 550
Me.Height = 350

With AcroPDF1

.Width = 200
.Height = 300

.LoadFile path

End With

 

[OğuzTürkyılmaz]

Dim DialogBox As FileDialog
Dim path As String
Set DialogBox = Application.FileDialog(msoFileDialogFilePicker)

DialogBox.AllowMultiSelect = False

DialogBox.Filters.Clear
DialogBox.Filters.Add "Pdf Dosyaları", "*.pdf?", 1

DialogBox.Show

If DialogBox.SelectedItems.Count = 1 Then

path = DialogBox.SelectedItems(1)
Debug.Print path
End If

'yapılacaklar pdf dosyasının yolu alınacak,sonra bu yol ve dosya ismi "ThisWorkbook.Path & "\Haziran bilgilendirme.pdf" ile değiştirilecek kaydet tuşu ile ilgili bölüme kaydedilecek

Me.Width = 550
Me.Height = 350

With AcroPDF1

.Width = 200
.Height = 300

.LoadFile path

End With

Hata veren kod satırındaki dosya yolum, dialogbox tan seçtiğim dosyanın ( Şu anda o dosyada desktop üzerinde )kaydedilmesini istediğim yer ama orda hata veriyor. Dialogbox ta masaüstündeki pdf dosyasını seçip yine masaüstündeki uygulamamın bulunduğu klasörün içindeki dosyanın ( Policeler.PDF klasörünün ) içine kaydetmek istiyorum sonuçta. Beceremedim anlayacağınız.