全部显示

SmoothStart 属性

       

设置或返回 MsoTriState 类型常数,该常数代表动画启动时是否应该加速。可读写。

expression.SmoothStart

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

示例

以下示例向幻灯片添加一个形状并使该形状具有动画效果,然后指示该形状在动画启动时加速。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    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)

    With effDiamond.Timing
        .Duration = 5
        .SmoothStart = msoTrue
    End With

End Sub