Objeto Sequences (PowerPoint)

Representa uma coleção de objetos de sequência. Use um objeto Sequence para adicionar, localizar, modificar e clonar efeitos de animação.

Exemplo

Use a propriedade InteractiveSequences do objeto TimeLine para retornar uma coleção de sequências. Use o método Addpara adicionar uma sequência de animação interativa. O exemplo a seguir adiciona duas formas no primeiro slide da apresentação ativa e define um efeito interativo para a forma de estrela para que quando você clica na forma de bisel, a forma de estrela seja animada.

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

Confira também

Referência de modelo de objeto do PowerPoint

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.