Propriété Timing.TriggerShape (PowerPoint)

Article
04/07/2023

Définit ou renvoie un objet Shape représentant la forme associée au déclencheur d’une animation. Lecture-écriture.

Syntaxe

expression. TriggerShape

Expression Variable qui représente un objet Timing .

Valeur renvoyée

Shape

Exemple

L’exemple suivant ajoute deux formes à une diapositive, ajoute une animation à une forme et commence l’animation lorsque l’utilisateur clique sur l’autre forme.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    Set shpOval = _
      ActivePresentation.Slides(1).Shapes. _
      AddShape(Type:=msoShapeOval, Left:=400, Top:=100, Width:=100, Height:=50)

    Set shpRectangle = ActivePresentation.Slides(1).Shapes. _
      AddShape(Type:=msoShapeRectangle, Left:=100, Top:=100, Width:=50, Height:=50)

    Set effDiamond = ActivePresentation.Slides(1).TimeLine. _
      InteractiveSequences.Add().AddEffect(Shape:=shpRectangle, _
      effectId:=msoAnimEffectPathDiamond, trigger:=msoAnimTriggerOnShapeClick)

    With effDiamond.Timing
        .Duration = 5
        .TriggerShape = shpOval
    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