Hyperlinks Property Example

This example allows the user to update an outdated internet address for all hyperlinks in the active presentation.

oldAddr = InputBox("Old internet address")
newAddr = InputBox("New internet address")
For Each s In ActivePresentation.Slides
    For Each h In s.Hyperlinks
        If LCase(h.Address) = oldAddr Then h.Address = newAddr
    Next
Next