Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Déplace l’objet spécifié vers un emplacement spécifique dans la même collection. Tous les autres éléments de la collection sont renumérotés.
Syntaxe
expression. MoveTo( _toPos_ )
Expression Variable qui représente un objet Slide .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Topos | Obligatoire | Long | La position d'index vers laquelle déplacer l'effet d'animation. |
Exemple
Cet exemple place un effet d’animation en deuxième position dans la collection d’animation d’effets pour la forme spécifiée.
Sub MoveEffect()
Dim sldFirst as Slide
Dim shpFirst As Shape
Dim effAdd As Effect
Set sldFirst = ActivePresentation.Slides(1)
Set shpFirst = sldFirst.Shapes(1)
Set effAdd = sldFirst.TimeLine.MainSequence.AddEffect _
(Shape:=shpFirst, effectId:=msoAnimEffectBlinds)
effAdd.MoveTo toPos:=2
End Sub
Cet exemple déplace la deuxième diapositive de la présentation active vers la première diapositive.
Sub MoveSlideToNewLocation()
ActivePresentation.Slides(2).MoveTo toPos:=1
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.