object representing the hyperlink associated with the specified shape.
expression.Hyperlink
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets shape one on page one in the active publication to jump to the specified Web site when the shape is clicked.
Dim hypTemp As Hyperlink
Set hypTemp = ActiveDocument.Pages(1).Shapes(1).Hyperlink
hypTemp.Address = "http://www.tailspintoys.com/"