Timing.Decelerate property (PowerPoint)

Sets or returns the percentage of the duration over which a timing deceleration should take place. Read/write.

Syntax

expression. Decelerate

expression A variable that represents a Timing object.

Return value

Single

Remarks

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.

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

See also

Timing Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.