Shapes.AddLabel, méthode (Project)

Crée une étiquette dans un rapport et renvoie un objet Shape qui représente la nouvelle étiquette.

Syntaxe

expression. AddLabel (Orientation,Gauche,Haut,Largeur,Hauteur)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Orientation	Obligatoire	MsoTextOrientation	Orientation du texte dans l'étiquette.
Left	Obligatoire	Unique	Position (en points) du bord gauche de l’étiquette par rapport au côté gauche du rapport.
Top	Obligatoire	Unique	Position (en points) du bord supérieur de l’étiquette par rapport au haut du rapport.
Width	Obligatoire	Simple	Largeur de l'étiquette, en points.
Height	Obligatoire	Simple	Hauteur de l'étiquette, en points.
Orientation	Obligatoire	MSOTEXTORIENTATION
Left	Obligatoire	FLOAT
Top	Obligatoire	FLOAT
Width	Obligatoire	FLOAT
Height	Obligatoire	FLOAT

Valeur renvoyée

Forme

Exemple

L’exemple suivant ajoute une étiquette verte avec le texte « Hello rapport ! » à un nouveau rapport.

Sub AddHelloLabel()
    Dim shapeReport As Report
    Dim reportName As String
    Dim labelShape As shape
    
    ' Add a report.
    reportName = "Label report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Set labelShape = shapeReport.Shapes.AddLabel(msoTextOrientationHorizontal, 30, 30, 120, 40)

    With labelShape
        With .Fill
            .BackColor.RGB = RGB(red:=&H20, green:=&HFF, blue:=&H20)
            .Visible = msoTrue
        End With
        
        .TextFrame2.AutoSize = msoAutoSizeShapeToFitText
        .TextFrame2.HorizontalAnchor = msoAnchorCenter
        
        With .TextFrame2.TextRange
            .Text = "Hello report!"
            .Font.Bold = msoTrue
            .Font.Name = "Calibri"
            .Font.Size = 18
        End With
    End With
End Sub

Voir aussi

Shapes, objetShape, objet

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.