Excelde PDF Dosyalarını Görebilmek için

[Amaxx]

Merhaba Arkadaşlar, uzun süre sonra excelle uğraşmanın mutluluğuyla geldim ve bir soru sormak istiyoum.

Excel dosyamda uzunca bir kod listesi oluşturacağım. Bu kodlardan birini seçtiğimde o Koda ait PDF formatında Resim dosyasını excel sayfasında görmek istiyorum. Yardımlarınızı bekliyorum.

 

[Amaxx]

Arkadaşlar lütfen en azından bir ipucu verirseniz ....

 

[Amaxx]

yardım taleplerim ve araştırmalarım sonuç vermedi...

 

[Recep İpek]

Pdf dosyalarının excelde görüntülenmesi biraz zor olabilir.Açıkcası ben hiç bir yerde görmedim.

Bunun yerine resimleri bmp,gif gibi resim formatında oluşturursanız excelde rahatlıkla gösterebilirsiniz.

 

[Amaxx]

Recep bey ilginiz için teşekkürler. Ofis arkadaşları Server' da PDF olarak dosya biriktirdiği için PDF olmasını istemiştim. Jpg olarak dediğiniz gibi görüntülemek mümkün ama bunları jpg' e çevirme işi bana ayrı bir angarya olacak her görüntülenecek dosya için. Delphide de böyle bir şey var mı diye aradım ama onda da birşey bulamadım. Şu halde excel içinde çalışan PDF to JPG diye bir kod yada program çalışması lazım gibi....

 

[Recep İpek]

PDF konusunu biraz araştırmak gerekiyor.

 

[izcik]

Değerli Amaxx tarafımdan az önce denenmiştir. Demo sürümü. (Shareware programdır deneme amaçlı sitesinden indirip kullanabilirsiniz) Doğal olarak yasaldır.

Birisi yazılım, diğeri de driveridir. Bu tür programlar, dosyayı yazdırma öngörünümü gibi gösterip kayıt yaptığından driverini de yüklemek gerekiyor. Aksi halde çalışmaz.

http://www.pdf-convert.com/d2/psconvert_setup.exe
http://www.pdf-convert.com/d2/xls2pdf2_setup.exe

 

[hayalbert]

ben excel içinden adobe viewer ı çağıran bir basit macro yazmıştım işinize yarar mı?

 

[parametre]

ben excel içinden adobe viewer ı çağıran bir basit macro yazmıştım işinize yarar mı?

burada arkadasa yarayabilir vermek gerekiyor

 

[Amaxx]

Merhaba hayalbert, parametreyi destekliyorum ve merakla bekliyorum yazdığınız kodu

 

[hayalbert]

gecikme için özür dilerim irkaç gündür foruma girmiyordum da

ActiveCell.FormulaR1C1 = ("c:\proex\hasarraporlari\" & txtDefkayıt & ".pdf")
Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=("c:\proex\hasarraporlari\" & txtDefkayıt & ".pdf"), _
TextToDisplay:=("c:\proex\hasarraporlari\" & txtDefkayıt & ".pdf")

özetle
işlem yapmak üzere boş bir sayfaya link yaratıp Hyperlinks ile PDF i açıyoruz belki çok isabetli bir çözüm değil ama işimizi görüyor

 

[parametre]

yaklasım tarzınız iyi bakıs acınızı sevdim teşekkur ederim