Convert hyperlink to image

[Av8tordude]

I have created a hyperlink to an image on my computer. However, instead of opening the default window picture app, is it possible to insert the image onto a sheet?

 

[cooper645]

I wrote the file path in cells A1 & A2, for two different images on the computer.
I then made them hyperlinks back to the cells they were in (A1 & A2)

Then inserted the code below into the sheet code;

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = ActiveCell.Address Then
        Call InsertImage
        End If
End Sub

Sub InsertImage()
Dim fName As String
fName = ActiveCell.Value
ActiveSheet.Pictures.Insert(fName).Select
End Sub

 

[Av8tordude]

Great!..>Thank you Cooper

 

[Av8tordude]

When using this code, the default picture app still opens. Is there a way to stop the default picture app from opening?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = ActiveCell.Address Then
    Call InsertImage
End If
End Sub

Sub InsertImage()
Dim fName As String
fName = ActiveCell.Hyperlinks(1).Address
ActiveSheet.Pictures.Insert(fName).Select
End Sub

 

[cooper645]

Does your hyperlink link to the image? If so link it to its own cell on sheet with just the file path in the cell. I never had the problem