Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de changer d’annuaire.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de changer d’annuaire.
Renvoie un objet Sequence qui représente la collection d’objets Effect dans la séquence d’animation principale d’une diapositive.
Syntaxe
expression. MainSequence
expression Variable qui représente un objet TimeLine .
Valeur renvoyée
Séquence
Remarques
La valeur par défaut de la propriété MainSequence est une collection Sequence vide. Si vous tentez de renvoyer une valeur à partir de cette propriété sans ajouter au moins un objet Effect à la séquence d’animation principale, cela provoque une erreur d’exécution.
Exemple
L’exemple suivant montre comment ajouter une animation boomerang à la nouvelle forme d’une nouvelle diapositive ajoutée à la présentation active.
Sub NewSequence()
Dim sldNew As Slide
Dim shpnew As Shape
Set sldNew = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutBlank)
Set shpnew = sldNew.Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=25, Top:=25, Width:=100, Height:=100)
With sldNew.TimeLine.MainSequence.AddEffect(Shape:=shpnew, _
EffectId:=msoAnimEffectBoomerang)
.Timing.Speed = 0.5
.Timing.Accelerate = 0.2
End With
End Sub
Voir aussi
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.