Compartilhar via


Evento Application.AfterPresentationOpen (PowerPoint)

Ocorre depois que uma apresentação existente é aberta.

Sintaxe

expression. AfterPresentationOpen( _Pres_ )

Expressão Uma expressão que retorna um objeto Application .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Pres Obrigatório Presentation A apresentação que é aberta.

Exemplo

Este exemplo modifica a cor do plano de fundo do esquema de cores três, aplica o esquema de cores modificado à apresentação aberta e exibe a apresentação no modo de exibição de slides.

Private Sub App_AfterPresentationOpen(ByVal Pres As Presentation)

    With Pres

        Set CS3 = .ColorSchemes(3)

        CS3.Colors(ppBackground).RGB = RGB(240, 115, 100)

        With Windows(1)

            .Selection.SlideRange.ColorScheme = CS3

            .ViewType = ppViewSlide

        End With

    End With

End Sub

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.