Propriété Timing.RewindAtEnd (PowerPoint)

Article
04/07/2023

Représente si un objet retourne à sa position de début après la fin d’une animation. En lecture/écriture

Syntaxe

expression. RewindAtEnd

Expression Variable qui représente un objet Timing .

Valeur renvoyée

MsoTriState

Remarques

La valeur de la propriété RewindAtEnd peut être l’une de ces constantes MsoTriState.

Constante	Description
msoFaux	L’objet ne retourne pas à sa position de départ une fois l’animation terminée.
msoVrai	L’objet retourne à sa position de départ une fois l’animation terminée.

Exemple

L’exemple suivant montre comment ajouter une forme et lui attribuer une animation, puis comment indiquer à la forme de revenir à sa position de départ après la fin de l’animation.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape and sets animation 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 duration of animation and returns shape to its original position

    With effDiamond.Timing
        .Duration = 3
        .RewindAtEnd = 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.

Partager via