Propriété Timing.RepeatDuration (PowerPoint)

Article
04/07/2023

Définit ou renvoie une valeur spécifiant, en secondes, la durée des animations répétées. Lecture-écriture.

Syntaxe

expression. RepeatDuration

Expression Variable qui représente un objet Timing .

Valeur renvoyée

Unique

Remarques

Une animation s’arrête soit à la fin de sa séquence horaire soit au moment où elle atteint la valeur de la propriété RepeatDuration, selon la valeur la moins importante.

Exemple

Cet exemple montre comment ajouter une forme et lui attribuer une animation, puis comment répéter l’animation dix fois. Cependant, après cinq secondes, l’animation s’interrompt, même si elle est prévue pour une chronologie de 20 secondes (si la propriété Duration n’est pas spécifiée, la durée de l’animation est de deux secondes par défaut).

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds new 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 repeat duration and number of times to repeat animation
    With effDiamond.Timing
        .RepeatDuration = 5
        .RepeatCount = 10
    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