Timing.RewindAtEnd 屬性 (PowerPoint)

代表物件是否在動畫結束後回到其開始位置。 讀取/寫入。

語法

expression。 RewindAtEnd

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

傳回值

MsoTriState

註解

RewindAtEnd 屬性的值可以是下列其中一個 MsoTriState 常數。

範例

下列範例會新增圖案並且為此圖案新增動畫，然後指示圖案在動畫結束後回到其開始位置。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape and sets animation effect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectPathDiamond)

    'Sets duration of animation and returns shape to its original position

    With effDiamond.Timing
        .Duration = 3
        .RewindAtEnd = msoTrue
    End With

End Sub

另請參閱

時間物件

支援和意見反應

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