通过

Timing.RewindAtEnd 属性 (PowerPoint)

  • 项目

代表动画结束后对象是否返回其初始位置。 读/写。

语法

expression。 RewindAtEnd

表达 一个代表 Timing 对象的变量。

返回值

MsoTriState

备注

RewindAtEnd 属性的值可以是其中一个 MsoTriState 常量。

常量 说明
msoFalse 动画结束后对象不返回其初始位置。
msoTrue 动画结束后对象返回其初始位置。

示例

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

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。