Dosyadaki resmi açma

[fealdown]

Merhabalar,

Makro ile "C:\Users\Fealdown\Desktop\Fotosel kapı dosyası" içindeki deneme.jpg dosyasını varsayılan fotoğraf görüntüleyicisinde nasıl açarız ?

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim dosya As String
    dosya = "C:\Users\Fealdown\Desktop\Fotosel kapı\deneme.jpg"
    Shell ("RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & dosya)
End Sub

 

[fealdown]

merhaba,kod hata vermiyor ama çalışmıyorda nedeni acaba işletim sistemi mi yoksa sizdeki fotoğraf görüntüleyicisi bende mi yok ?
ben windows10 işletim sistemini kullanıyorum.

 

[fealdown]

tamam hallettim çok sağolun

 

[Muzaffer Ali]

Rica ederim iyi çalışmalar.