ShapeRange.Duplicate, méthode (PowerPoint)

  • Article

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

ShapeRange, objet

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.