Méthode Sequence.AddEffect (PowerPoint)

Article
04/07/2023

Renvoie un objet Effect qui représente un nouvel effet d’animation ajouté à une séquence d’effets d’animation.

Syntaxe

expression. AddEffect( _Shape_, _effectId_, _Level_, _trigger_, _Index_ )

Expression Variable qui représente un objet Sequence .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Forme	Requis	Shape	Forme à laquelle l’effet d’animation est ajouté.
effectId	Requis	MsoAnimEffect	Effet d’animation à appliquer.
Level	Facultatif	MsoAnimateByLevel	Pour les graphiques, diagrammes ou texte, niveau auquel l’effet d’animation sera appliqué. La valeur par défaut est msoAnimationLevelNone.
Déclencheur	Facultatif	MsoAnimTriggerType	Action qui déclenche l’effet d’animation. La valeur par défaut est msoAnimTriggerOnPageClick.
Index	Facultatif	Long	Position à laquelle l’effet sera placé dans la collection d’effets d’animation. La valeur par défaut est -1 (ajouté à la fin).

Valeur renvoyée

Effet

Exemple

L’exemple suivant ajoute une animation qui rebondit au premier groupe de formes se trouvant dans la première diapositive. Cet exemple suppose qu’un groupe de formes contenant une ou plusieurs formes est sélectionné dans la première diapositive.

Sub AddBouncingAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape

    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)

    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce

End Sub

Voir aussi

Sequence, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Share via