MoveAfter Method

Moves one animation effect to after another animation effect.

expression Required. An expression that returns one of the objects in the Applies To list.

EffectRequired Effect object. The effect after which the effect in expression will be moved.

Example

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