PowerPoint VBA教程:Decelerate属性

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

expression.Decelerate

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

VBA示例

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

上页:PowerPoint VBA教程:DateTime属性 下页:PowerPoint VBA教程:DefaultLanguageID属性

PowerPoint VBA教程:Decelerate属性

PowerPoint VBA教程:DefaultLanguageID属性 PowerPoint VBA教程:DefaultShape属性
PowerPoint VBA教程:DefaultSpacing属性 PowerPoint VBA教程:DefaultWebOptions属性
PowerPoint VBA教程:Depth属性 PowerPoint VBA教程:Design属性
PowerPoint VBA教程:Designs属性 PowerPoint VBA教程:Diagram属性
PowerPoint VBA教程:DiagramNode属性 PowerPoint VBA教程:Dim属性
PowerPoint VBA教程:DimColor属性 PowerPoint VBA教程:Direction属性
PowerPoint VBA教程:DisplayAlerts属性 PowerPoint VBA教程:DisplayAutoCorrectOptions属性
PowerPoint VBA教程:DisplayAutoLayoutOptions属性 PowerPoint VBA教程:DisplayComments属性
PowerPoint VBA教程:DisplayGridLines属性 PowerPoint VBA教程:DisplayMasterShapes属性
PowerPoint VBA教程:DisplayName属性 PowerPoint VBA教程:DisplayOnTitleSlide属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号