TPE

Tavvafi@gmail.com

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

Sub OutlineLinks()

    Dim oSh As Shape
    Dim oSl As Slide

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            If oSh.ActionSettings(ppMouseClick).Action <> ppActionNone Then
                ' Change this to get different colors:
                ' eg RGB(0,255,0) would be green
                oSh.Line.ForeColor.RGB = RGB(255, 0, 0)
                ' Change this to get different line weights
                oSh.Line.Weight = 2
            End If
            If oSh.ActionSettings(ppMouseOver).Action <> ppActionNone Then
                ' Change this to get different colors:
                ' eg RGB(0,255,0) would be green
                oSh.Line.ForeColor.RGB = RGB(255, 0, 0)
                ' Change this to get different line weights
                oSh.Line.Weight = 2
            End If
        Next oSh
    Next oSl

End Sub