Shapes.AddLine-Methode (Word)

Artikel
10/16/2024

Fügt einem Zeichenbereich eine Linie hinzu.

Syntax

Ausdruck. AddLine (BeginX, Beginy, EndX, EndY)

expression Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
BeginX	Erforderlich	Single	Die horizontale Position (in Punkt) des Startpunkts der Linie, relativ zum Zeichenbereich.
BeginY	Erforderlich	Single	Die vertikale Position (in Punkt) des Startpunkts der Linie, relativ zum Zeichenbereich.
EndX	Erforderlich	Single	Die horizontale Position (in Punkt) des Endpunkts der Linie, relativ zum Zeichenbereich.
EndY	Erforderlich	Single	Die vertikale Position (in Punkt) des Endpunkts der Linie, relativ zum Zeichenbereich.

Rückgabewert

Shape

Hinweise

Um einen Pfeil zu erstellen, verwenden Sie die Line-Eigenschaft , um eine Zeile zu formatieren.

Beispiel

In diesem Beispiel wird einem neuen Zeichenbereich eine violette Linie hinzugefügt.

Sub NewCanvasLine() 
 Dim shpCanvas As Shape 
 Dim shpLine As Shape 
 
 'Add new drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=150, Height:=200) 
 
 'Add a line to the drawing canvas 
 Set shpLine = shpCanvas.CanvasItems.AddLine( _ 
 BeginX:=25, BeginY:=25, EndX:=150, EndY:=150) 
 
 'Add an arrow to the line and sets the color to purple 
 With shpLine.Line 
 .BeginArrowheadStyle = msoArrowheadDiamond 
 .BeginArrowheadWidth = msoArrowheadWide 
 .ForeColor.RGB = RGB(Red:=150, Green:=0, Blue:=255) 
 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