Shapes.AddPolyline-Methode (Word)

Fügt einem Zeichenbereich ein offenes oder ein geschlossenes Vieleck hinzu. Gibt ein Shape-Objekt zurück, welches das Vieleck darstellt, und fügt es der CanvasShapes-Auflistung hinzu.

Syntax

Ausdruck. AddPolyline( _SafeArrayOfPoints_ )

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SafeArrayOfPoints	Erforderlich	Variant	Ein Array von Koordinatenpaaren, das die Scheitelpunkte der Polylinie angibt.

Hinweise

Weisen Sie dem ersten und letzten Scheitelpunkt in der Polylinienzeichnung dieselben Koordinaten zu, um ein geschlossenes Vieleck zu bilden.

Beispiel

In diesem Beispiel wird in einem neuen Zeichenbereich eine V-förmige offene Polylinie erstellt.

Sub NewCanvasPolyline() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 Dim sngArray(1 To 3, 1 To 2) As Single 
 
 'Creates a new document and adds a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=200, Height:=300) 
 
 'Sets the coordinates of the array 
 sngArray(1, 1) = 100 
 sngArray(1, 2) = 75 
 sngArray(2, 1) = 150 
 sngArray(2, 2) = 100 
 sngArray(3, 1) = 100 
 sngArray(3, 2) = 125 
 
 'Adds a V-shaped open polyline to the drawing canvas 
 shpCanvas.CanvasItems.AddPolyline SafeArrayOfPoints:=sngArray 
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.