Propriété Timing.RewindAtEnd (PowerPoint)

Représente si un objet retourne à sa position de début après la fin d’une animation. 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.

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.