Evento Application.PresentationNewSlide (PowerPoint)

Artículo
04/07/2023

Se produce al crear una nueva diapositiva en cualquier presentación abierta, cuando la diapositiva se agrega a la colección Slides.

Sintaxis

expresión. PresentationNewSlide( _Sld_ )

Expresión Expresión que devuelve un objeto Application .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Sld	Obligatorio	Slide	Nueva diapositiva.

Ejemplo:

En este ejemplo se modifica el color de fondo para la combinación de colores tres y se aplica la combinación de colores modificada a la nueva diapositiva. Después, se agrega el texto predeterminado a la forma uno si tiene un marco 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

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

Share via