Hyperlink.Shape (Excel)

Devuelve un objeto Shape que representa la forma adjunta al hipervínculo especificado.

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