Decelerate 属性

设置或返回 Single 类型值，该值代表减速过程持续时间的百分比。例如，数值 0.9 表示减速过程以默认速度启动，经过动画持续时间的 10% 之后开始减速。可读写。

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

示例

本示例添加一个形状并添加一个动画，该动画以默认速度启动，在动画完成 70% 以后开始减速。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle 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)

    'Slows the effect after seventy percent of the animation has finished
    With effDiamond.Timing
        .Decelerate = 0.3
    End With

End Sub