Propriété Timing.TriggerDelayTime (PowerPoint)

Article
04/07/2023

Définit ou renvoie le délai d’attente, en secondes, à partir du moment où le déclencheur d’une animation est activé. Lecture-écriture.

Syntaxe

expression. TriggerDelayTime

Expression Variable qui représente un objet Timing .

Valeur renvoyée

Unique

Exemple

L’exemple suivant montre comment ajouter une forme à une diapositive, lui attribuer une animation et commencer l’animation trois secondes après que l’utilisateur a cliqué sur la forme.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    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 = 5
        .TriggerShape = shpRectangle
        .TriggerType = msoAnimTriggerOnShapeClick
        .TriggerDelayTime = 3
    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