Shapes.AddLabel-Methode (Project)

Artikel
04/07/2023

Erstellt eine Bezeichnung in einem Bericht und gibt ein Shape-Objekt zurück, das die neue Bezeichnung darstellt.

Syntax

Ausdruck. AddLabel (Ausrichtung,Links,Oben,Breite,Höhe)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Orientation	Erforderlich	MsoTextOrientation	Die Ausrichtung des Texts innerhalb der Beschriftung.
Left	Erforderlich	Single	Die Position (in Punkt) des linken Rands der Bezeichnung relativ zur linken Seite des Berichts.
Top	Erforderlich	Single	Die Position (in Punkt) des oberen Rands der Bezeichnung relativ zum oberen Rand des Berichts.
Width	Erforderlich	Single	Die Breite der Beschriftung in Punkt.
Height	Erforderlich	Single	Die Höhe der Beschriftung in Punkt.
Orientation	Erforderlich	MSOTEXTORIENTATION
Left	Erforderlich	FLOAT
Top	Erforderlich	FLOAT
Width	Erforderlich	FLOAT
Height	Erforderlich	FLOAT

Rückgabewert

Shape

Beispiel

Im folgenden Beispiel wird einem neuen Bericht eine grüne Bezeichnung mit dem Text "Hello Bericht!" hinzugefügt.

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

Siehe auch

Shapes-Objekt Shape-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über