PowerPoint VBA教程:Accelerate属性

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

expression.Accelerate

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

说明

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

VBA示例

本示例添加了一个形状并添加一个动画,慢速启动并在动画序列进行到 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

上页:PowerPoint VBA教程:WebOptions对象 下页:PowerPoint VBA教程:AcceleratorsEnabled属性

PowerPoint VBA教程:Accelerate属性

PowerPoint VBA教程:AcceleratorsEnabled属性 PowerPoint VBA教程:Accent属性
PowerPoint VBA教程:Accumulate属性 PowerPoint VBA教程:Action属性
PowerPoint VBA教程:ActionSettings属性 PowerPoint VBA教程:ActionVerb属性
PowerPoint VBA教程:Active属性 PowerPoint VBA教程:ActivePane属性
PowerPoint VBA教程:ActivePresentation属性 PowerPoint VBA教程:ActivePrinter属性
PowerPoint VBA教程:ActiveWindow属性 PowerPoint VBA教程:AddIns属性
PowerPoint VBA教程:Additive属性 PowerPoint VBA教程:Address属性
PowerPoint VBA教程:Adjustments属性 PowerPoint VBA教程:AdvanceMode属性
PowerPoint VBA教程:AdvanceOnClick属性 PowerPoint VBA教程:AdvanceOnTime属性
PowerPoint VBA教程:AdvanceTime属性 PowerPoint VBA教程:AfterEffect属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号