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 une forme automatique. Renvoie un objet Shape qui représente la nouvelle forme automatique.
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 | Spécifie le type de forme automatique à créer. |
| Left | Obligatoire | Single | Position, exprimée en points, du bord gauche de la forme automatique par rapport au bord gauche de la diapositive. |
| Top | Obligatoire | Single | Position, exprimée en points, du bord supérieur de la forme automatique par rapport au bord supérieur de la diapositive. |
| Width | Obligatoire | Single | Largeur de la forme automatique, exprimée en points. |
| Height | Obligatoire | Single | Hauteur de la forme automatique, exprimée en points. |
Valeur renvoyée
Shape
Remarques
Pour modifier le type de forme automatique ajouté, définissez la propriété AutoShapeType.
Exemple
Cet exemple ajoute un rectangle à myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
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.