Timing.Decelerate Property
Sets or returns the percentageof the duration over which a timing deceleration should take place. Read/write.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Property Decelerate As Single
Get
Set
'Usage
Dim instance As Timing
Dim value As Single
value = instance.Decelerate
instance.Decelerate = value
float Decelerate { get; set; }
Property Value
Type: System.Single
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.
Examples
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