Classe AnimationPoints (PowerPoint VBA)
La classe AnimationPoints représente une collection de points d’animation pour un objet PropertyEffect .
Pour utiliser une variable de classe AnimationPoints, elle doit d'abord être instanciée, par exemple
Dim aps as AnimationPoints
Set aps = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points
Les variables du type AnimationPoints peuvent être définies à l'aide de la procédure PropertyEffect.Points
Add
Renvoie un objet AnimationPoint qui représente un nouveau point d’animation.
Add (Index)
Index: Position du point d’animation par rapport aux autres points d’animation. La valeur par défaut est-1, ce qui signifie que si vous omettez le paramètre index, le nouveau point d’animation est ajouté à la fin des points d’animation existants.
Dim apt As AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Add()
Count
Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.
Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Count
Item
Cette méthode renvoie un seul objet AnimationPoint de la collection AnimationPoints spécifiée.
Item (Index)
Index: Numéro d’index de l’objet AnimationPoint unique à renvoyer dans la collection.
Dim apt As AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(Index:=1)
Smooth
Détermine si la transition d’un point d’animation à un autre est lissée. Lecture-écriture.
La valeur de la propriété Smooth peut être l’une de ces constantes MsoTriState .
ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Smooth = msoTrue