Propriété Timing.AutoReverse (PowerPoint)

Article
04/07/2023

Détermine si un effet doit s’exécuter en avant puis en sens inverse, auquel cas sa durée est double. Lecture-écriture.

Syntaxe

expression. AutoReverse

Expression Variable qui représente un objet Minutage .

Valeur renvoyée

MsoTriState

Remarques

La valeur de la propriété AutoReverse peut être l’une des constantes MsoTriState suivantes.

Constante	Description
msoFalse	Valeur par défaut. L’effet n’est pas exécuté en avant puis en sens inverse.
msoVrai	L’effet s’exécute en avant, puis en sens inverse.

Exemple

L’exemple suivant montre comment ajouter une forme et lui attribuer un effet d’animation. Il montre ensuite comment définir l’animation afin qu’elle aille en sens inverse après avoir fini son mouvement avant.

Sub SetEffectTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle and applies diamond effect
    Set shpRectangle = ActivePresentation.Slides(1).Shapes.AddShape _
        (Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set effDiamond = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpRectangle, _
         effectId:=msoAnimEffectPathDiamond)

    'Sets the duration of and reverses the effect
    With effDiamond.Timing
        .Duration = 5 ' Length of effect.
        .AutoReverse = msoTrue
    End With

End Sub

Voir aussi

Objet Minutage

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.