Invalid procedure call or argument When creating link

[Macro_Nerd99]

I get a Runtime error '5': Invalid procedure call or argument when I run this code:

    Dim my_pic As Picture
     Set my_pic = ActiveSheet.Pictures(1)

      ActiveSheet.Hyperlinks.Add Anchor:=my_pic, Address:="https://google.com"

What is wrong with this code and how do I fix this error?

 

[Micron]

ActiveSheet is a member of the Application object and I don't think it has a picture property. The only "picture" property I could find belongs to the HeaderFooter class. Then again, you didn't say which line causes the error and that's always important information.

 

[Macro_Nerd99]

ActiveSheet is a member of the Application object and I don't think it has a picture property. The only "picture" property I could find belongs to the HeaderFooter class. Then again, you didn't say which line causes the error and that's always important information.

I was able to make the picture object and delete it, but I couldn't assign a link to it. So the 3rd line is the error.

 

[Micron]

Have never tried this. Can only say that there is a subAddress property that I have used to make hyperlinks within workbooks work so maybe try that instead. Otherwise I'm afraid I don't know what else to suggest.

 

[Alex Blakenburg]

The exact code will depend on how you want to access the picture. In the below code I have assumed that you know the name of the picture.
If there are no other Shapes and you know you want the first one you could use Shapes(1)

Sub HyperlinkOnPicture()

    Dim my_pic As Shape
    Set my_pic = ActiveSheet.Shapes("Picture 3")
   
    ActiveSheet.Hyperlinks.Add Anchor:=my_pic, Address:= _
        "https://google.com"

End Sub

If you want to continue to use the Pictures Item number as opposed to the Shapes Item number the below works:
The hyperlink needs a Shape object and doesn't seem to accept an picture object.
Looping through shapes picks up pictures but looping through pictures on picks up pictures.

Sub PicturesByItemNo()
    Dim my_pic As Shape
    With ActiveSheet
        Set my_pic = .Shapes(.Pictures(1).Name)
    End With
    
    ActiveSheet.Hyperlinks.Add Anchor:=my_pic, Address:="https://google.com"
End Sub