Decelerate Property

Decelerate Property
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Sets or returns a Single that represents the percent of the duration over which a timing deceleration should take place. For example, a value of 0.9 means that an deceleration should start at the default speed, and then start to slow down after the first ten percent of the animation. Read/write.

expression.Decelerate

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds a shape and adds an animation that starts at the default speed and slows down after 70% of the animation has finished.

  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