Effect.MoveAfter Method (PowerPoint)
Moves one animation effect to after another animation effect.
Syntax
expression .MoveAfter(Effect)
expression A variable that represents an Effect object.
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