RewindAtEnd 属性

设置或返回 MsoTriState 类型常数，该常数代表动画结束后对象是否返回其初始位置。可读写。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue 不应用于此属性。

msoFalse 默认值。动画结束后对象不返回其初始位置。

msoTriStateMixed 不应用于此属性。

msoTriStateToggle 不应用于此属性。

msoTrue 动画结束后对象返回其初始位置。

expression.RewindAtEnd

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

示例

以下示例添加一个形状并向该形状添加一个动画，然后指示该形状在动画结束后返回其初始位置。

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