Shapes.AddShape, méthode (Publisher)

Ajoute un nouvel objet Shape représentant une forme automatique à la collection Shapes spécifiée.

Syntaxe

expression. AddShape (Type, Left, Top, Width, Height)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Type	Obligatoire	MsoAutoShapeType	Type de forme automatique à dessiner.
Left	Obligatoire	Variant	Position du bord gauche de la forme représentant la forme automatique.
Haut	Obligatoire	Variant	Position du bord supérieur de la forme représentant la forme automatique.
Largeur	Obligatoire	Variant	Largeur de la forme représentant la forme automatique.
Hauteur	Obligatoire	Variant	Hauteur de la forme représentant la forme automatique.

Valeur renvoyée

Shape

Remarques

Pour les arguments Left, Top, Width et Height , les valeurs numériques sont évaluées en points ; les chaînes peuvent être dans n’importe quelle unité prise en charge par Microsoft Publisher (par exemple, « 2,5 pouces »).

Exemple

L’exemple ci-après ajoute un rectangle à la première page de la composition active.

Dim shpShape As Shape 
 
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShapeRectangle, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=144) 

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.