Partager via

Objet Sequences (PowerPoint)

  • Article

Représente une collection d’objets Sequence . Utilisez un objet Sequence pour ajouter, rechercher, modifier et cloner des effets d’animation.

Exemple

Utilisez la propriété InteractiveSequencesde l’objet TimeLine pour renvoyer une collection Sequences . Utilisez la méthode Addpour ajouter une séquence d’animation interactive. L’exemple suivant montre comment ajouter deux formes à la première diapositive de la présentation active et comment définir un effet interactif pour la forme en étoile afin qu’elle s’anime dès que vous cliquez sur la forme en biseau.

Sub AddNewSequence()

    Dim shp1 As Shape
    Dim shp2 As Shape
    Dim interEffect As Effect

    Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape _
        (Type:=msoShape32pointStar, Left:=100, _
        Top:=100, Width:=200, Height:=200)

    Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape _
        (Type:=msoShapeBevel, Left:=400, _
        Top:=200, Width:=150, Height:=100)

    With ActivePresentation.Slides(1).TimeLine.InteractiveSequences.Add(1)
        Set interEffect = .AddEffect(shp2, msoAnimEffectBlinds, _
            trigger:=msoAnimTriggerOnShapeClick)
        interEffect.Shape = shp1
    End With

End Sub

Voir aussi

Référence du modèle objet PowerPoint

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.