Shape.Duplicate, méthode (PowerPoint)
Cette méthode crée une copie de l’objet Shape spécifié, ajoute la nouvelle forme à la collection Shapes, puis renvoie un 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 Shape .
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.