Shapes.AddShape, méthode (projet)

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

Syntaxe

expression. AddShape (Type,gauche,haut,largeur,hauteur)

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 contenant deux formes, puis transforme la deuxième forme de nuage en bulle 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

Formes ObjetForme ObjetAutoShapeType PropriétéÉnumération MsoAutoShapeType (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.

  • Last updated on