Excel rewrites my hyperlinks to sharepoint

don242can 

Maybe this will work

Make vCommand a Variant

Instead of Dim vCommand as String, use Dim vCommand as Variant

Grrr. Just ran into another EXCEL got you. If the hyperlink address is to long (and I don't know how long is long) then selection.hyperlinks(1).address does not return the full address. Instead it returns ../../ and the right hand portion of the full address.

don242can 

This code expects the selected cell to be a hyperlink.  

Private Sub CommandButton1_Click()

Dim vCommand As String
Dim PID As Variant

vCommand = "mspaint.exe " & Chr(34) & Selection.Hyperlinks(1).Address & Chr(34)
PID = Shell(vCommand, vbMaximizedFocus)

End Sub

I found a possible solution.   I created a VBA SUB that will start mspaint.exe and open the .JPG

I added a command button to invoke the VBA SUB

The code expects a cell with the full path name to the picture to be selected before clicking the command button

Here is the code:

Private Sub Display_Picture_Click()
Dim vCommand as String
Dim PID As Variant

' The next two lines of code remove the " on the right and left end of the path name
'vCommand = Right(Selection.Value, Len(Selection.Value) - 1)
'vCommand = Left(vCommand, Len(vCommand) - 1)

' The next line adds the paint app name, mspaint.exe
vCommand = "mspaint.exe " & Selection.Value

' The next line start mspaint and passes the file path 
PID = Shell(vCommand, vbNormalFocus)
End Sub