How to open .jpg picture with macro

I use the following macro to open excel files. Can this be modified to open
a picture ppppp.jpg ?

. . . or, can someone help me with a new macro that can open pictures
. . . I would still like to have the file checking options to see if the picture is already open and if not, that it actually exists.


Please see bottom of this posting for additional question!

Thanks
Matt @ Launchnet

Please Login or Register  to view this content.

P.S. - - - I am still looking for a way to activate the workbook we're looking for when the above test states that it is already open.

Hello Matt,

The following macro will open a picture using the default program for the picture type. Change the the variable PicPath to the picture file you want to display. Copy this code into a standard VBA module.

Please Login or Register  to view this content.

Hi Leith - Good hearing from you

First, I copied the code to my VBA module.
Then I typed in the correct path to the picture.
When I stepped into the code, I got the following error message.

Compile error:
Only comments may appear after End Sub, End Function or End Property.

There is a macro prior to your Private Declare Function ShellExecute _

Maybe I should be putting something like Sub at the beginning and End Sub at the end, but I don't know what it should be.

The stuff that starts with Private Declare has to be at the top of the module, with nothing above it other than compiler directives (e.g., Option Explicit). The Sub can go anyplace in the module.

Moved the Private Declare stuff to the very top.

No error msg.

I stepped thru and when RetValu = . . . is high-lited, I hovered over the PicPath and it does not have a value ???

Change the right side of the assignment to point to a valid path and filename on your computer, Matt.

Shg - Thanks . . . I forgot an "s" at the end of a folder. Works perfect. I will mark as Solved.

I really enjoy working with you guys. I've learned alot, but I've still got a long ways to go. Well, I still have lots of years left as I'm only 77.

Thanks again

Good Morning SHG

Your code works, but I would like to better understand the code.

Could you explain to me how this line of code works or the meanings of code please:

Please Login or Register  to view this content.

Hello Matt,

I will keep it simple because this is a low level system call. Explaining how all the arguments function and where they come from is too much detail to explain in this post.

The ShellExecute code is an API (Applications Programming Interface) call. The procedure will open the executable program associated with the file's extension. This call uses uses the verb "open" to run the executable program for the file's type. The file, including the path and the file extension, is the third parameter. The last parameter determines the window state when the program is run. Normal size is chosen.

Good Morning SHG

Your code works ...

Leith's code, Matt

Good Morning Leith

Please Login or Register  to view this content.

I understand RetVal = ShellExecute( ?, "open, PicPath, ?, ?, ?)

Is their an easy explaination of the areas with question marks ? In general, what they mean.

If not, forget it, as I understand where you are coming from.

Hello Matt,

Click on this link to see a full explanation of the call.