Evento Application.PresentationNewSlide (PowerPoint)
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
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.