PDF Dosyasını Açmak

[baydeniro]

Merhaba Arkadaşlar,

Excel sayfası A1 hücresinde klasör yolu/adresi kayıtlı PDF veya JPG dosyasını ekrana getirmek mümkün mü acaba !

 

[bilgiconline]

İyi akşamlar resim eklemek için ;

Sub Resimekleme()

Dim dosyayolu As String
dosyayolu = ActiveSheet.Range("A1")

ActiveSheet.Pictures.Insert (dosyayolu)
End Sub

kodunu kullanabilirsiniz.

 

[Haluk]

Aşağıdaki linkte yer alan kod, bu işi de görür...

https://www.excel.web.tr/threads/klasoerue-ekrana-getirmek.179735/post-988411

.

 

[Haluk]

Veya;

CreateObject("WScript.Shell").Run Range("A1").Text

.

 

[bilgiconline]

Veya;

CreateObject("WScript.Shell").Run Range("A1").Text

.

Hocam iyi akşamlar , bunla ne tür dosyalar eklenir ayrıca dosya yolunu nereden alıyor ?

 

[Haluk]

Hocam iyi akşamlar , bunla ne tür dosyalar eklenir ayrıca dosya yolunu nereden alıyor ?

Dosya yolu, A1 hücresinde olacak ..... örneğin; C:\TestFolder\test.xlsx veya C:\TestFolder\test.bmp gibi birşeyler olacak A1 hücresinde...

Eğer A1 hücresinde dosya değil de, C:\TestFolder gibi bir klasör yolu varsa o zaman klasörü ekrana getirir....

.

 

[bilgiconline]

Dosya yolu, A1 hücresinde olacak ..... örneğin; C:\TestFolder\test.xlsx veya C:\TestFolder\test.bmp gibi birşeyler olacak A1 hücresinde...

Eğer A1 hücresinde dosya değil de, C:\TestFolder gibi bir klasör yolu varsa o zaman klasörü ekrana getirir....

.

Teşekkürler , iyi akşamlar.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
4 numaralı mesajda; A1 de adresi verilen jpg dosyanın sol üst köşesinin hangi hücreye geleceği de belirlenebilir mi?
Saygılarımla

 

[baydeniro]

İyi akşamlar resim eklemek için ;

Sub Resimekleme()

Dim dosyayolu As String
dosyayolu = ActiveSheet.Range("A1")

ActiveSheet.Pictures.Insert (dosyayolu)
End Sub

kodunu kullanabilirsiniz.

bilgiconline yardım için çok teşekkür ederim, sağlıcakla kalın

 

[baydeniro]

Veya;

CreateObject("WScript.Shell").Run Range("A1").Text

.

Haluk üstadım harikasını, çok teşekkür ederim, sağlıcakla kalın