Address Property Example

This example scans all shapes on the first slide for the URL to the Microsoft Web site.

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Hyperlinks
    If s.Address = "http://www.microsoft.com/" Then
        MsgBox "You have a link to the Microsoft Home Page"
    End If
Next