Shapes.AddPolyline-Methode (Publisher)

Artikel
04/07/2023

Fügt der angegebenen Shapes-Auflistung ein neues Shape-Objekt hinzu, das eine offene Polylinie oder ein geschlossenes Polygon darstellt.

Syntax

Ausdruck. AddPolyline (SafeArrayOfPoints)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SafeArrayOfPoints	Erforderlich	Variant	Ein Array aus Koordinatenpaaren, das die Scheitelpunkte der Polylinie oder des Polygons angibt.

Rückgabewert

Form

Bemerkungen

Für die Arrayelemente in SafeArrayOfPoints werden numerische Werte in Punkten ausgewertet. Zeichenfolgen können in beliebigen Einheiten enthalten sein, die von Microsoft Publisher unterstützt werden (z. B. "2,5 zoll").

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

Beispiel

Das folgende Beispiel fügt ein Dreieck zu der ersten Seite der aktiven Publikation hinzu. Da der erste und der letzte Punkt dieselben Koordinaten aufweisen, handelt es sich um ein geschlossenes Polygon.

Dim shpPolyline As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 25 
arrPoints(1, 2) = 100 
arrPoints(2, 1) = 100 
arrPoints(2, 2) = 150 
arrPoints(3, 1) = 150 
arrPoints(3, 2) = 50 
arrPoints(4, 1) = 25 
arrPoints(4, 2) = 100 
 
Set shpPolyline = ActiveDocument.Pages(1).Shapes.AddPolyline _ 
 (SafeArrayOfPoints:=arrPoints)

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