Shapes.AddLabel-Methode (Word)

Artikel
04/07/2023

Fügt einem Zeichenbereich eine Beschriftung hinzu.

Syntax

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

Ausdruck: Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Orientation	Erforderlich	MsoTextOrientation	Die Ausrichtung des Texts.
Left	Erforderlich	Single	Die in Punkt gemessene Position des linken Rands der Beschriftung relativ zum linken Rand des Zeichenbereichs.
Top	Erforderlich	Single	Die in Punkt gemessene Position des oberen Rands der Beschriftung relativ zum oberen Rand des Zeichenbereichs.
Width	Erforderlich	Single	Die Breite der Beschriftung in Punkt.
Height	Erforderlich	Single	Die Höhe der Beschriftung in Punkt.

Rückgabewert

Shapes

Beispiel

In diesem Beispiel wird einem neuen Zeichenbereich im aktiven Dokument eine blaue Beschriftung mit dem Text "Hello World" hinzugefügt.

Sub NewCanvasTextLabel() 
 Dim shpCanvas As Shape 
 Dim shpLabel As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas _ 
 (Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a label to the drawing canvas 
 Set

shpLabel = shpCanvas.CanvasItems.AddLabel _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=15, Top:=15, Width:=100, Height:=100) 
 
 'Fill the label textbox with a color, 
 'add text to the label and format it 
 With

shpLabel 
 With .Fill 
 .BackColor.RGB = RGB(Red:=0, Green:=0, Blue:=192) 
 'Make the fill visible 
 .Visible = msoTrue 
 End With 
 With .TextFrame.TextRange 
 .Text = "Hello World." 
 .Bold = True 
 .Font.Name = "Tahoma" 
 End With 
 End With 
End Sub

Siehe auch

Shapes Collection Object

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