This is what I use with Windows10
- amend the filepath
Code:
Sub jpg()
Dim FILEPATH As String
FILEPATH = "C:\Users\yongle\Pictures\whatever.jpg"
Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & FILEPATH
End Sub
This is what I use with Windows10
- amend the filepath
Code:
Sub jpg()
Dim FILEPATH As String
FILEPATH = "C:\Users\yongle\Pictures\whatever.jpg"
Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & FILEPATH
End Sub