Shapes.AddLine-Methode (Word)
Fügt einem Zeichenbereich eine Linie hinzu.
Syntax
Ausdruck. AddLine (BeginX, Beginy, EndX, EndY)
Ausdruck: 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
HinwBemerkungeneise
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
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für