You can control the pictures when you insert them:

Option Explicit
Sub testme()

   Dim myPict As Picture
   Dim myRng As Range
   
   With ActiveSheet
       Set myRng = .Range("b3:c4")
       Set myPict = .Pictures.Insert("c:\my documents\my pictures\badday.jpg")
       
   End With
   With myPict
       .Top = myRng.Top
       .Left = myRng.Left
       .Width = myRng.Width
       .Height = myRng.Height
       .Name = "Pict_" & .TopLeftCell.Address(0, 0)
       .OnAction = "'" & ThisWorkbook.Name & "'!testme03"
   End With
   
End Sub
Sub testme03()
   dim myPict as picture
   MsgBox "you clicked: " & Application.Caller
   set mypict = activesheet.pictures(application.caller)
   msgbox mypict.name
End Sub