Shape.DrawPolyline-Methode (Visio)

Artikel
04/07/2023

Erstellt ein Shape, dessen Pfad eine Polylinie entlang einer gegebenen Reihe von Punkten darstellt.

Syntax

Ausdruck. DrawPolyline( _xyArray()_ , _Flags_ )

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
xyArray()	Erforderlich	Double	Ein Array von wechselnden X- und Y-Werten, mit denen die Punkte im Pfad des neuen Shapes definiert werden.
Flags	Erforderlich	Integer	Kennzeichen, die beeinflussen, wie das Shape gezeichnet wird.

Rückgabewert

Form

Bemerkungen

Mit der DrawPolyline-Methode wird ein neues Shape erstellt, dessen Pfad aus einer Sequenz von Liniensegmenten besteht und dessen Endpunkte mit den in xyArray angegebenen Punkten übereinstimmen. Das Aufrufen der DrawPolyline-Methode entspricht dem Aufrufen der DrawSpline-Methode mit einer Toleranz von Null (0) und einem visSplineAbrupt-Kennzeichen.

Die Kontrollpunkte sollten sich in internen Zeichnungseinheiten (Zoll) in Bezug auf den Koordinatenbereich des Zeichenblatts, des Masters oder der Gruppe befinden, in dem das neue Shape erstellt wird. Das übergebene Array sollte ein SAFEARRAY-Typ mit 8-Byte-Gleitkommawerten sein, die als Verweis übergeben werden (VT_R8| VT_ARRAY| VT_BYREF). So übergibt Microsoft Visual Basic Arrays an Automation-Objekte.

Das Flags-Argument ist eine Bitmaske für die Angabe von Optionen zum Zeichnen des neuen Shapes. Der Wert kann visPolyline1D (8) oder visPolyarcs (256) enthalten. Wenn Flags Folgendes enthält:

visPolyline1D und wenn der erste und letzte Punkt in xyArray nicht übereinstimmen, erzeugt die DrawPolyline-Methode eine Form mit eindimensionalem (1D)-Verhalten; Andernfalls wird eine Form mit zweidimensionalen (2D)-Verhalten erzeugt.
visPolyarcs erzeugt Microsoft Visio eine Sequenz von Bögen anstelle einer Sequenz von Liniensegmenten. xyArray sollte den anfänglichen x,y-Punkt der Sequenz gefolgt von x,y-Bow-Triples angeben. Visio erzeugt ein Shape mit EllipticalArcTo-Zeilen, in denen der Bogen des Bogens mit dem angegebenen Wert übereinstimmt.

Wenn die ersten und letzten Punkte in xyArray übereinstimmen, erzeugt die DrawPolyline-Methode ein ausgefülltes Shape.

Beispiel

Im folgenden Beispiel wird gezeigt, wie zwei Polylinienformen mit 2D- bzw. 1D-Verhalten auf dem aktiven Zeichenblatt gezeichnet werden.

 
Public Sub DrawPolyline_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim adblXYPoints(1 To 8) As Double 
 Dim intCounter As Integer 
 
 'Initialize array with coordinates. 
 adblXYPoints(1) = 1 
 adblXYPoints(2) = 1 
 adblXYPoints(3) = 3 
 adblXYPoints(4) = 3 
 adblXYPoints(5) = 5 
 adblXYPoints(6) = 1 
 adblXYPoints(7) = 1 
 adblXYPoints(8) = 2 
 
 'Use the DrawPolyline method to draw a shape that has 2D behavior. 
 Set vsoShape = ActivePage.DrawPolyline(adblXYPoints, 0) 
 
 'Increase the Y-coordinate of the array by 4 to separate 
 'the next shape drawn from the first. 
 For intCounter = 2 To UBound(adblXYPoints) Step 2 
 adblXYPoints(intCounter) = adblXYPoints(intCounter) + 4 
 Next intCounter 
 
 'Use the DrawPolyline method to draw a shape that has 1D behavior. 
 Set vsoShape = ActivePage.DrawPolyline(adblXYPoints, visPolyline1D) 
 
End Sub

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