Classe AnimationBehavior (PowerPoint VBA)

La classe AnimationBehavior représente le comportement d'un effet d'animation, de la séquence d'animation principale ou d'une séquence d'animation interactive. L’objet AnimationBehavior appartient à la collection AnimationBehaviors.

Les procédures principales de la classe AnimationBehavior sont Delete et AnimationBehaviors.Add

Set

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

Dim abr as AnimationBehavior
Set abr = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe AnimationBehavior : AnimationBehaviors.Item, AnimationBehaviors.Add et Effect.Behaviors

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Add with its procedures Additive et AnimationBehaviors.Add

Méthodes

Les méthodes principales de la classe AnimationBehavior sont

Delete - Supprime l’objet AnimationBehavior spécifié.

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

Propriétés

Accumulate Indique si les comportements de l’animation s’ajoutent les uns aux autres. Lecture-écriture.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).Accumulate = msoAnimAccumulateAlways

ColorEffect Renvoie un objet ColorEffect qui représente les propriétés de couleur d’un comportement d’animation spécifié.

Dim cetColorEffect As ColorEffect
Set cetColorEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).ColorEffect

CommandEffect Renvoie un objet CommandEffect pour le comportement d’animation spécifié. En lecture seule.

Dim cetCommandEffect As CommandEffect
Set cetCommandEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).CommandEffect

FilterEffect Renvoie un objet FilterEffect qui représente un effet de filtre appliqué à un comportement d’animation. En lecture seule.

Dim fetFilterEffect As FilterEffect
Set fetFilterEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).FilterEffect

MotionEffect Renvoie un objet MotionEffect qui représente les propriétés d’une animation de mouvement.

Dim metMotionEffect As MotionEffect
Set metMotionEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).MotionEffect

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

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).Parent

PropertyEffect Renvoie un objet PropertyEffect pour un comportement d’animation donné. En lecture seule.

Dim petPropertyEffect As PropertyEffect
Set petPropertyEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect

RotationEffect Renvoie un objet RotationEffect d’un comportement d’animation. En lecture seule.

Dim retRotationEffect As RotationEffect
Set retRotationEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).RotationEffect

ScaleEffect Renvoie un objet ScaleEffect pour un comportement d’animation donné. En lecture seule.

Dim setScaleEffect As ScaleEffect
Set setScaleEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).ScaleEffect

SetEffect Renvoie un objet SetEffect pour le comportement d’animation. En lecture seule.

Dim setSetEffect As SetEffect
Set setSetEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).SetEffect

Timing Renvoie un objet timing qui représente les propriétés de minutage d’une séquence d’animation.

Dim tmnTiming As Timing
Set tmnTiming = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).Timing

Type Représente le type d’animation. Lecture-écriture.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).Type = msoAnimTypeColor

AnimationBehaviors.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.Count

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

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors.Parent