Returns a Hyperlink 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.
This example sets shape one on page one in the active publication to jump to the Microsoft Web site when the shape is clicked.
Dim hypTemp As Hyperlink
Set hypTemp = ActiveDocument.Pages(1).Shapes(1).Hyperlink
hypTemp.Address = "http://www.microsoft.com/"