Hyperlink.Shape (Excel)

Returns a Shape object that represents the shape attached to the specified hyperlink.

Dim shpShape As Shape
Set shpShape = ActiveCell.Hyperlinks(1).Shape