Timing.Decelerate 属性 (PowerPoint)

设置或返回应发生计时减速的持续时间的百分比。 读/写。

语法

expressionDecelerate

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

返回值

单精度

备注

例如,数值 0.9 表示减速过程以默认速度启动,经过动画持续时间的 10% 之后开始减速。

示例

本示例添加一个形状并添加一个动画,该动画以默认速度启动,在动画完成 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

另请参阅

计时对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。