Classe Effect (PowerPoint VBA)

La classe Effect représente les informations relatives au minutage de l’animation d’une diapositive.

La procédure principale de la classe Effect est Delete

Set

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

Dim eff as Effect
Set eff = ActivePresentation.SlideMaster.TimeLine.MainSequence(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Effect : Sequence.Item, Sequence.Clone, Sequence.AddEffect, Sequence.AddTriggerEffect, Sequence.ConvertToAfterEffect, Sequence.ConvertToAnimateBackground, Sequence.ConvertToAnimateInReverse, Sequence.ConvertToBuildLevel, Sequence.ConvertToTextUnitEffect, Sequence.FindFirstAnimationFor, Sequence.FindFirstAnimationForClick, Sequences.Item, Sequences.Add et TimeLine.MainSequence

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 Sequence.AddEffect et Sequence.AddTriggerEffect

Méthodes

C'est la méthode principale de la classe Effect

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

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

Autre Méthodes

Sequence.Clone - Crée une copie d’un objet Effect et l’ajoute à la collection sequences à la position d’index spécifiée.

Dim effClone As Effect
Set effClone = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Clone(Effect:=)

Sequence.ConvertToAfterEffect - Spécifie le comportement d’un effet une fois terminé. Renvoie un objet Effect qui représente un effet après.

Dim effConvertToAfterEffect As Effect
Set effConvertToAfterEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAfterEffect(Effect:=, After:=msoAnimAfterEffectDim)

Sequence.ConvertToAnimateBackground - Détermine si l’arrière-plan s’anime indépendamment ou conjointement au texte d’accompagnement. Renvoie un objet Effect qui représente l’effet d’animation qui vient d’être modifié.

Dim effConvertToAnimateBackground As Effect
Set effConvertToAnimateBackground = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAnimateBackground(Effect:=, AnimateBackground:=msoTrue)

Sequence.ConvertToAnimateInReverse - Détermine si le texte sera animé en ordre inverse. Renvoie un objet Effect représentant l’animation du texte.

Dim effConvertToAnimateInReverse As Effect
Set effConvertToAnimateInReverse = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAnimateInReverse(Effect:=, animateInReverse:=msoTrue)

Sequence.ConvertToBuildLevel - Modifie les informations relatives au niveau de compilation de l’effet d’animation spécifié. Renvoie un objet Effect qui représente les informations de niveau de Build.

Dim effConvertToBuildLevel As Effect
Set effConvertToBuildLevel = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToBuildLevel(Effect:=, Level:=msoAnimateChartAllAtOnce)

Sequence.ConvertToTextUnitEffect - Renvoie un objet Effect qui représente le mode d’animation du texte.

Dim effConvertToTextUnitEffect As Effect
Set effConvertToTextUnitEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToTextUnitEffect(Effect:=, unitEffect:=msoAnimTextUnitEffectByCharacter)

Propriétés

Behaviors Renvoie un comportement d’animation de diapositive spécifié sous la forme d’une collection AnimationBehaviors .

Dim absBehaviors As AnimationBehaviors
Set absBehaviors = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors

DisplayName Renvoie le nom d’un effet d’animation. En lecture seule.

Dim strDisplayName As String
strDisplayName = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).DisplayName

EffectInformation Renvoie un objet EffectInformation qui représente les informations d’un effet d’animation spécifié.

Dim einEffectInformation As EffectInformation
Set einEffectInformation = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation

EffectParameters Renvoie un objet EffectParameters qui représente les propriétés d’un effet d’animation.

Dim epsEffectParameters As EffectParameters
Set epsEffectParameters = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters

EffectType Définit ou renvoie une constante MsoAnimEffect représentant un type d’effet d’animation. Lecture-écriture.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectType = msoAnimEffect3DArrive

Exit Détermine si l’effet d’animation est un effet de sortie. Lecture-écriture.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Exit = msoTrue

Index Renvoie un type de données Long qui représente le numéro d’index d’un effet d’animation ou d’un motif. En lecture seule.

Dim lngIndex As Long
lngIndex = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Index

Paragraph Renvoie ou définit le paragraphe dans une plage de texte auquel appliquer des effets d’animation. Lecture-écriture.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Paragraph =

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

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

Shape Renvoie un objet Shape qui représente une forme animée.

Set ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Shape =

TextRangeLength Renvoie ou définit une valeur de type Long qui représente la longueur d’une plage de texte. En lecture seule.

Dim lngTextRangeLength As Long
lngTextRangeLength = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).TextRangeLength

TextRangeStart Renvoie ou définit le début d’une plage de texte. En lecture seule.

Dim lngTextRangeStart As Long
lngTextRangeStart = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).TextRangeStart

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).Timing

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

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

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