Inserting Hyperlink On Installed Picture?

I got code that is installing a picture over a range on my sheet.

Now, I would like to add an hyperlink to the picture so if I click on it, I will be opening my Snap Picture application

Problem is every time I create or install a new picture, the name of it change so I can't install an hyperlink over a picture that I don't know the name...

Code:
Sub test2()
Dim MyDocument As Variant
Dim MyShape As Variant
Dim SelectImage As String

[Code]....