Returns or sets the location within a document
Example
This example sets shape one on slide one in the active presentation to jump to the slide named "Last Quarter" in Latest Figures.ppt when the shape is clicked during a slide show.
With ActivePresentation.Slides(1).Shapes(1) _
.ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
With .Hyperlink
.Address = "c:\sales\latest figures.ppt"
.SubAddress = "last quarter"
End With
End With
This example sets shape one on slide one in the active presentation to jump to range A1:B10 in Latest.xls when the shape is clicked during a slide show.
With ActivePresentation.Slides(1).Shapes(1) _
.ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
With .Hyperlink
.Address = "c:\sales\latest.xls"
.SubAddress = "A1:B10"
End With
End With