MoveTo Method

expression.MoveTo(toPos)

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

toPos   Required Long. The index to which to move the animation effect.

Example

This example moves an animation effect to the second in the animation effects collection for the specified shape.

Sub MoveEffect()
    Dim sldFirst as Slide
    Dim shpFirst As Shape
    Dim effAdd As Effect

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

    Set effAdd = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)

    effAdd.MoveTo toPos:=2

End Sub
		

This example moves the second slide in the active presentation to the first slide.

Sub MoveSlideToNewLocation()
    ActivePresentation.Slides(2).MoveTo toPos:=1
End Sub