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.