TPE

[e-mail]

---

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub BlankTheScreentips()
    Dim osl As Slide
    Dim ohl As Hyperlink

    For Each osl In ActivePresentation.Slides
        For Each ohl In osl.Hyperlinks
            ' This sets the screentip to a space
            'ohl.ScreenTip = " "
            ' This sets the screentip to null, even less intrusive than a space
            ohl.ScreenTip = ""
        Next
    Next
End Sub

---