Classe AnimationPoint (PowerPoint VBA)

La classe AnimationPoint représente un point d’animation précis dans un comportement d’animation. L’objet AnimationPoint est membre de la collection AnimationPoints . La collection AnimationPoints contient tous les points d’animation relatifs à un comportement d’animation.

Set

Pour utiliser une variable de classe AnimationPoint, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe AnimationPoint : AnimationPoints.Item, AnimationPoints.Add et PropertyEffect.Points

Delete

Supprime l’objet AnimationPoint spécifié.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Delete

Formula

Renvoie ou définit une valeur de type String représentant la formule à utiliser pour calculer une animation. Lecture-écriture.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Formula = RGB(Red:=255, Green:=255, Blue:=255)

Parent

Renvoie l’objet parent de l’objet spécifié.

Time

Définit ou renvoie le temps à un point d’animation donné. Lecture-écriture.

La valeur de la propriété Time peut être n’importe quelle valeur à virgule flottante comprise entre 0 et 1, représentant un pourcentage de la chronologie entière, comprise entre 0 et 100%. La valeur 0,2, par exemple, correspond à un point situé à 20 % du découpage de gauche à droite du temps.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Time = 0.2

Value

Cette propriété définit ou renvoie la valeur d’une propriété pour un point d’animation. Lecture-écriture.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Value = RGB(0, 255, 0)

AnimationPoints.Add

Renvoie un objet AnimationPoint qui représente un nouveau point d’animation.

Syntaxe : expression.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()

AnimationPoints.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

AnimationPoints.Item

Cette méthode renvoie un seul objet AnimationPoint de la collection AnimationPoints spécifiée.

Syntaxe : expression.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)

AnimationPoints.Parent

Renvoie l’objet parent de l’objet spécifié.

AnimationPoints.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