Accelerate 属性

返回或设置 Single 变量，它代表加速过程持续时间的百分比。例如，数值 0.9 意味着动画将在前 90% 的时间内逐渐加速到默认速度，并在最后 10% 的时间内保持默认速度。可读写。

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

说明

若要在动画结束时减速，请使用 Decelerate 属性。

示例

本示例添加了一个形状并添加一个动画，慢速启动并在动画序列进行到 30% 时达到默认速度。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle and specifies effect to use for rectangle
    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)

    'Specifies the acceleration for the effect
    With effDiamond.Timing
        .Accelerate = 0.3
    End With

End Sub