Timing.Accelerate property (PowerPoint)

Returns or sets the percentage of the duration over which a timing acceleration should take place. Read/write.

Syntax

expression. Accelerate

expression A variable that represents an Timing object.

Return value

Single

Remarks

For example, a value of 0.9 means that an acceleration should start slower than the default speed for 90% of the total animation time, with the last 10% of the animation at the default speed.

To slow down an animation at the end, use the Decelerate property.

Example

This example adds a shape and adds an animation, starting out slow and matching the default speed after 30% of the animation sequence.

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

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.