Objeto de efeito (PowerPoint)

Representa informações de intervalos sobre uma animação de slides.

Exemplo

Utilize o método AddEffect para adicionar um efeito. Este exemplo adiciona uma forma ao primeiro slide da apresentação ativa e adiciona um efeito e um comportamento à forma.

Sub NewShapeAndEffect()

    Dim shpStar As Shape

    Dim sldOne As Slide

    Dim effNew As Effect



    Set sldOne = ActivePresentation.Slides(1)

    Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _

        Left:=150, Top:=72, Width:=400, Height:=400)

    Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _

        EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)

    With effNew

        With .Behaviors.Add(msoAnimTypeScale).ScaleEffect

            .FromX = 75

            .FromY = 75

            .ToX = 0

            .ToY = 0

        End With

        .Timing.AutoReverse = msoTrue

    End With

End Sub

Para fazer referência a um objeto Efeito existente, utilize o método MainSequence(índice), em que índice é o número do objeto Efeito na coleção Sequência . Este exemplo altera o efeito da primeira sequência e especifica o comportamento de efeito.

Sub ChangeEffect()

    With ActivePresentation.Slides(1).TimeLine _

        .MainSequence(1)

        .EffectType = msoAnimEffectSpin

        With .Behaviors(1).RotationEffect

            .From = 100

            .To = 360

            .By = 5

        End With

    End With

End Sub

Métodos

Nome
Delete
MoveAfter
MoveBefore
MoveTo

Propriedades

Nome
Application
Comportamentos
DisplayName
EffectInformation
EffectParameters
EffectType
Exit
Índice
Parágrafo
Parent
Forma
TextRangeLength
TextRangeStart
Vencimento

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.