Timing.Accelerate Property

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
    .<strong>Accelerate</strong> = 0.3
End With

End Sub

See Also

• Timing Object
• Timing Object Members