ShapeRange.Duplicate, méthode (PowerPoint)
Cette méthode crée une copie de l’objet ShapeRange spécifié, ajoute la plage de formes à la collection Shapes, puis renvoie le nouvel objet ShapeRange. Les objets dupliqués sont placés à la fin de la collection Shapes.
Syntaxe
expression. Double
Expression Variable qui représente un objet ShapeRange .
Valeur renvoyée
ShapeRange
Exemple
Cet exemple montre comment ajouter une nouvelle diapositive vide à la fin de la présentation active, ajouter un losange à la nouvelle diapositive, copier le losange et établir les propriétés de la copie. Le premier losange aura la couleur de remplissage par défaut du jeu de couleurs actif ; le deuxième losange sera décalé par rapport au premier et aura la couleur par défaut de l’ombre.
Set mySlides = ActivePresentation.Slides
Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)
Set firstObj = newSlide.Shapes _
.AddShape(msoShapeDiamond, 10, 10, 250, 350)
With firstObj.Duplicate
.Left = 150
.Fill.ForeColor.SchemeColor = ppShadow
End With
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour