Effect.MoveTo 方法 (PowerPoint)

會將指定物件移到相同集合中的特定位置，並適當地將集合中的所有其他項目重新編號。

語法

expression。 MoveTo( _toPos_ )

詞 一個代表 Effect 物件的變數。

參數

名稱	必要/選用	資料類型	描述
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

另請參閱

Effect 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。