Objeto Sequences (PowerPoint)
Representa una colección de objetos Sequence. Utilice un objeto Sequence para agregar, buscar, modificar y copiar efectos de animación.
Ejemplo:
Utilice la propiedad InteractiveSequences del objeto TimeLine para devolver una colección Sequences. Use el método Addpara agregar una secuencia de animación interactiva. El siguiente ejemplo agrega dos formas de la primera diapositiva de la presentación activa y establece un efecto interactivo para la forma de estrella para que al hacer clic en la forma de bisel, la forma de estrella es realizar la animación.
Sub AddNewSequence()
Dim shp1 As Shape
Dim shp2 As Shape
Dim interEffect As Effect
Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape _
(Type:=msoShape32pointStar, Left:=100, _
Top:=100, Width:=200, Height:=200)
Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape _
(Type:=msoShapeBevel, Left:=400, _
Top:=200, Width:=150, Height:=100)
With ActivePresentation.Slides(1).TimeLine.InteractiveSequences.Add(1)
Set interEffect = .AddEffect(shp2, msoAnimEffectBlinds, _
trigger:=msoAnimTriggerOnShapeClick)
interEffect.Shape = shp1
End With
End Sub
Consulte también
Referencia del modelo de objetos de PowerPoint
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de