Returns a Shape object for the specified hyperlink or diagram node.
expression.Shape
expression Required. An expression that returns one of the objects in the Applies To list.
If a hyperlink isn't represented by a shape, an error occurs.
This example changes the fill color for the shape that represents the first hyperlink in the active document. For this example to work, the hyperlink must be represented by a shape.
ActiveDocument.Hyperlinks(1).Shape.Fill.ForeColor.RGB = _
RGB(255, 255, 0)