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