VBA Powerpoint - Homogeinize todos os links da sua apresentação MS Powerpoint - Make links and action settings visible

| Blog Office VBA | Blog Excel | Blog Access |

Quando aplicamos algumas configurações de ação ou hiperlinks aos textos das nossas apresentações no MS PowerPoint estes reformatam o texto tornando óbvio que são links. 

Quando aplica as configurações de ações ou links para as caixas de texto ou outras formas, não ocorrem nenhum destaque visível como nos links (a não ser o cursor de mão indicando quando move o cursor sobre a forma vinculada). 

Execute este algoritmo na apresentação para dar a todas as configurações de ação / hiperlinks, uma forma de esboço (Se desejar, edite o código para alterar as cores de contorno para atender às suas próprias necessidades)

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

Reference: 

Tags: VBA, Powerpoint, presentation, visible,link,hyperlink,action,setting