Effect.MoveAfter Method (PowerPoint)

Moves one animation effect to after another animation effect.


expression. MoveAfter( _Effect_ )

expression A variable that represents an Effect object.


The following example moves one effect to after another.

Sub MoveEffect()

    Dim effOne As Effect
    Dim effTwo As Effect
    Dim shpFirst As Shape

    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)

    Set effOne = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)

    Set effTwo = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlast)

    effOne.MoveAfter Effect:=effTwo

End Sub

See also

Effect Object