Propriété Timing.Restart (PowerPoint)

Indique si l’effet d’animation redémarre après chaque démarrage. Lecture-écriture.

Syntaxe

expression. Restart

expression Variable qui représente un objet Timing .

Valeur renvoyée

MsoAnimEffectRestart

Remarques

La valeur de la propriété Restart peut être l’une de ces constantes MsoAnimEffectRestart. La valeur par défaut est msoAnimEffectRestartNever.

msoAnimEffectRestartAlways
msoAnimEffectRestartNever
msoAnimEffectRestartWhenOff

Exemple

L’exemple suivant montre comment ajouter une forme et lui attribuer une animation, puis comment définir un comportement permettant à l’animation de redémarrer.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape and sets animation

    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)

    With effDiamond.Timing
        .Duration = 3
        .RepeatDuration = 5
        .RepeatCount = 3
        .Restart = msoAnimEffectRestartAlways
    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.