macro ile resim açmak

[safaari]

Merhaba
Macro ile jpg uzantılı resim açmak istiyorum.
Bu açacağım resimi ise Windows resim ve faks görüntülecisinde açmak istiyorum.
Bununla ilgili bir komut varmı ??

    lanceur = Shell("\\server\ortak\Data\Excel\ORDER\ORDER_DETAILS\SIPARIS2011\ICPIYASAORJ\387.jpg")

Yukarıdaki komut işe yaramıyor.

Yardımlarınız için şimdiden teşekkürler. Yardımlarınızı bekliyorum....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub RESİM_GÖRÜNTÜLE()
    Dim RESİM
 
    RESİM = Shell("rundll32.exe C:\WINDOWS\System32\shimgvw.dll," & "ImageView_Fullscreen " & _
               "[URL="file://\\server\ortak\Data\Excel\ORDER\ORDER_DETAILS\SIPARIS2011\ICPIYASAORJ\387.jpg"]\\server\ortak\Data\Excel\ORDER\ORDER_DETAILS\SIPARIS2011\ICPIYASAORJ\387.jpg[/URL]")
End Sub

 

[safaari]

çok sağlun teşekkür ediyorum. verdiğiniz formul çalışıyor ve tam istediğim gibi. çok sağlun.