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