simora
08-28-2019, 01:44 AM
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
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