RE: VBA - using Shell to open a .jpg file in MS Paint


Daniel Pineault

Here try this:

Function OpenImage(sFileFullPathAndName)
On Error GoTo Error_Handler

Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & _
Chr(34) & sFileFullPathAndName & Chr(34), 1

If Err.Number = 0 Then Exit Function

MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf &
"Error Number: " & _
Err.Number & vbCrLf & "Error Source: OpenImage" & vbCrLf & "Error
Description: " & _
Err.Description, vbCritical, "An Error has Occured!"
Exit Function
End Function

You simply call it like so:
OpenImage("D:\Main\My Documents\My Pictures\Portrait.jpg")
Hope this helps,

Daniel Pineault
For Access Tips and Examples:
Please rate this post using the vote buttons if it was helpful.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question