Hyperlink.Shape (Excel)

Retorna um objeto Shape que representa a forma anexada ao hiperlink especificado.

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