通过

PowerPoint) (Timing.Accelerate 属性

返回或设置计时加速发生的期间的百分比。 读/写。

语法

expression。 Accelerate

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

返回值

单精度

备注

例如，数值 0.9 意味着动画将在前 90% 的时间内逐渐加速到默认速度，并在最后 10% 的时间内保持默认速度。

要降低动画结束时，使用 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

另请参阅

计时对象

支持和反馈

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