Compartilhar via

Evento Application.PresentationOpen (PowerPoint)

  • Artigo

Ocorre depois que uma apresentação existente é aberta, pois é adicionada à coleção Presentations.

Sintaxe

expression. PresentationOpen( _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.

Comentários

Para obter mais informações sobre o uso de eventos com o objeto Application, consulte Como usar eventos com o objeto Application.

Se sua solução Visual Studio inclui a referência de Microsoft.Office.Interop.PowerPoint, esse evento é mapeado para os seguintes tipos:

  • Microsoft.Office.Interop.PowerPoint.EApplication_PresentationOpenEventHandler (o delegado PresentationOpen.)

  • Microsoft.Office.Interop.PowerPoint.EApplication_Event.PresentationOpen (o evento PresentationOpen.)

Exemplo

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

Private Sub App_PresentationOpen(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.