Class AnimationPoints (PowerPoint VBA)

The class AnimationPoints represents a collection of animation points for a PropertyEffect object. To use a AnimationPoints class variable it first needs to be instantiated, for example

Dim aps as AnimationPoints
Set aps = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points

Add

Returns an AnimationPoint object that represents a new animation point.

Add (Index)

Index: The position of the animation point in relation to other animation points. The default value is -1, which means that if you omit the Index parameter, the new animation point is added to the end of existing animation points.

Dim apt As AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Add()

Count

Returns the number of objects in the specified collection.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Count

Item

Returns a single AnimationPoint object from the specified AnimationPoints collection.

Item (Index)

Index: The index number of the single AnimationPoint object in the collection to be returned.

Dim apt As AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(Index:=1)

Smooth

Determines whether the transition from one animation point to another is smoothed.

The value of the Smooth property can be one of these MsoTriState constants.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Smooth = msoTrue