CanvasShapes.AddLine (Word)

Fügt einem Zeichenbereich eine Linie hinzu.

Um einen Pfeil zu erstellen, verwenden Sie die Eigenschaft " Lineal ", um eine gerade zu formatieren.

AddLine (BeginX, BeginY, EndX, EndY)


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

Arguments

Hier sind die benannte Argumente :

BeginX (Single) - Die horizontale Position (in Punkt) des Startpunkts der Linie, relativ zum Zeichenbereich.

BeginY (Single) - Die vertikale Position (in Punkt) des Startpunkts der Linie, relativ zum Zeichenbereich.

EndX (Single) - Die horizontale Position (in Punkt) des Endpunkts der Linie, relativ zum Zeichenbereich.

EndY (Single) - Die vertikale Position (in Punkt) des Endpunkts der Linie, relativ zum Zeichenbereich.