Shapes.AddShape, méthode (Project)

Ajoute une forme du type de forme automatique spécifié à un état et renvoie un objet Shape qui représente la nouvelle forme.

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	Unique	Position, en points, du bord gauche de la forme automatique.
Top	Obligatoire	Unique	Position, en points, du bord supérieur de la forme automatique.
Width	Obligatoire	Unique	Largeur, en points, de la forme automatique.
Height	Obligatoire	Unique	Hauteur, en points, de la forme automatique.
Type	Obligatoire	MSOAUTOSHAPETYPE
Left	Obligatoire	FLOAT
Top	Obligatoire	FLOAT
Width	Obligatoire	FLOAT
Height	Obligatoire	FLOAT
Nom	Requis/Facultatif	Type de données	Description

Valeur renvoyée

Forme

Remarques

Pour modifier le type d’une forme automatique, définissez la propriété AutoShapeType .

Exemple

L’exemple suivant crée un rapport qui contient deux formes de nuage, puis remplace la deuxième forme de nuage par une bulle vocale jaune.

Sub TestShapes()
    Dim shapeReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Shape report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    ' Change the blue cloud to a yellow speech balloon.
    cloudShape2.AutoShapeType = msoShapeBalloon
    cloudShape2.Fill.ForeColor.RGB = &H80FFFF
End Sub

Voir aussi

Shapes ObjectShape ObjectAutoShapeType PropertyMsoAutoShapeType, énumération (Office)

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.