Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Objet de sequences (PowerPoint)Sequences Object (PowerPoint)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
2 Collaborateurs

Représente une collection d’objets Sequence . Utilisez un objet Sequence pour ajouter, rechercher, modifier et cloner des effets d’animation.Represents a collection of Sequence objects. Use a Sequence object to add, find, modify, and clone animation effects.

ExempleExample

Utilisez la propriété InteractiveSequencesde l’objet TimeLine pour renvoyer une collection Sequences . Utilisez la méthodeAddpour 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 définit un effet interactif pour la forme en étoile afin que lorsque vous cliquez sur la forme en biseau, la forme en étoile est animée.Use the InteractiveSequencesproperty of the TimeLine object to return a Sequences collection. Use theAddmethod to add an interactive animation sequence. The following example adds two shapes on the first slide of the active presentation and sets interactive effect for the star shape so that when you click the bevel shape, the star shape is be animated.

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).TimLine.InteractiveSequences.Add(1)
        Set interEffect = .AddEffect(shp2, msoAnimEffectBlinds, _
            trigger:=msoAnimTriggerOnShapeClick)
        interEffect.Shape = shp1
    End With

End Sub

Voir aussiSee also

ConceptsConcepts

Référence du modèle objet PowerPointPowerPoint Object Model Reference

© 2018 Microsoft