Remarque
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.
Crée un doublon de l’objet Shape ou ShapeRange spécifié, ajoute la nouvelle forme ou plage de formes à la collection Shapes immédiatement après la forme ou la plage de formes spécifiée à l’origine, puis renvoie le nouvel objet Shape ou ShapeRange .
Syntaxe
expression. Dupliquer
expression Une variable qui représente uneForme d’objet.
Valeur renvoyée
Shape
Exemple
Cet exemple montre comment ajouter une nouvelle page vierge à la fin de la composition active, ajouter une forme de losange à la nouvelle page, dupliquer le diamant, puis définir les propriétés du doublon. Le premier diamant aura la couleur de remplissage par défaut pour le jeu de couleurs actif ; le deuxième diamant sera décalé par rapport au premier et aura la première couleur d’accentuation pour le jeu de couleurs actif.
Dim pgTemp As Page
Dim shpTemp As Shape
Set pgTemp = ActiveDocument.Pages.Add(Count:=1, After:=1)
Set shpTemp = pgTemp.Shapes _
.AddShape(Type:=msoShapeDiamond, _
Left:=10, Top:=10, Width:=250, Height:=350)
With shpTemp.Duplicate
.Left = 150
.Fill.ForeColor.SchemeColor = pbSchemeColorAccent1
End With
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.