I am trying to open a Picture using the Windows Photo Gallery.
I can select the Picture name in a cell, and it gets the correct picture, and Photo Gallery is selected; but I have to click on the Folder in the bottom of the screen to see the Picture.
Is there a way to get Gallery to actually Open so that I can see the picture.
Here's my code;
Sub OpenAPic() Dim sFile As String Dim MyFile As String MyFile = ActiveCell sFile = "C:\People Folder\" Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & sFile & ActiveCell.Text End Sub