MoveTo 方法

将指定对象移动到同一集合中的指定位置，并适当地对集合中所有其他项目进行重新编号。

expression  必选。该表达式返回“应用于”列表中的对象之一。

toPos  必选。Long 类型。要将动画效果移动到的索引。

示例

本示例在指定形状的动画效果集合中将一个动画效果移动到第二个动画效果的位置上。

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

本示例将当前演示文稿中的第二张幻灯片移动到第一张幻灯片的位置上。

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