Compartilhar via


Evento Application.PresentationNewSlide (PowerPoint)

Ocorre quando é criado um novo slide em qualquer apresentação aberta, pois o slide é adicionado à coleção Slides.

Sintaxe

expression. PresentationNewSlide( _Sld_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Sld Obrigatório Slide O novo slide.

Exemplo

Este exemplo modifica a cor do plano de fundo do esquema de cores três e aplica o esquema de cores modificado ao novo slide. Em seguida, ele adiciona texto padrão à forma um, caso ela tenha um quadro de texto.

Private Sub App_PresentationNewSlide(ByVal Sld As Slide)

    With ActivePresentation

        Set CS3 = .ColorSchemes(3)

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

        Windows(1).Selection.SlideRange.ColorScheme = CS3

    End With



    If Sld.Layout <> ppLayoutBlank Then

        With Sld.Shapes(1)

            If .HasTextFrame = msoTrue Then

               .TextFrame.TextRange.Text = "King Salmon"

            End If

        End With

    End If

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.