ShapeRange.Vertices-Eigenschaft (Publisher)
Gibt die Koordinaten der Scheitelpunkte der angegebenen Freihandform (und der Kontrollpunkte für Bézierkurven) als Folge von Koordinatenpaaren zurück. Schreibgeschützter Variant-Wert.
Syntax
Ausdruck. Eckpunkte
Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.
Hinweise
Verwenden Sie das von dieser Eigenschaft zurückgegebene Array als Argument für die AddCurve - oder AddPolyline-Methode des Shapes-Objekts .
Die folgende Tabelle zeigt, wie die Vertices -Eigenschaft die Werte im Array, vertArray() mit den Koordinaten der Scheitelpunkte eines Dreiecks verbindet.
| VertArray-Element | Enthält |
|---|---|
vertArray(1, 1) |
den horizontalen Abstand zwischen dem ersten Scheitelpunkt und dem linken Rand der Seite. |
vertArray(1, 2) |
den vertikalen Abstand zwischen dem ersten Scheitelpunkt und dem oberen Rand der Seite. |
vertArray(2, 1) |
den horizontalen Abstand zwischen dem zweiten Scheitelpunkt und dem linken Rand der Seite. |
vertArray(2, 2) |
den vertikalen Abstand zwischen dem zweiten Scheitelpunkt und dem oberen Rand der Seite. |
vertArray(3, 1) |
den horizontalen Abstand zwischen dem dritten Scheitelpunkt und dem linken Rand der Seite. |
vertArray(3, 2) |
den vertikalen Abstand zwischen dem dritten Scheitelpunkt und dem oberen Rand der Seite. |
Beispiel
In diesem Beispiel werden die Vertexkoordinaten für Form 1 in der aktiven Publikation der Arrayvariablen vertArray()zugewiesen und die Koordinaten für den ersten Scheitelpunkt angezeigt.
Dim vertArray As Variant
Dim sngX1 As Single
Dim sngY1 As Single
With ActiveDocument.Pages(1).Shapes(1)
vertArray = .Vertices
sngX1 = vertArray(1, 1)
sngY1 = vertArray(1, 2)
MsgBox "First vertex coordinates: " & sngX1 & ", " & sngY1
End With
Das folgende Beispiel erstellt eine Kurve, die dieselbe geometrische Beschreibung aufweist wie Form 1 in der aktiven Publikation. Form 1 muss 3n+1 Scheitelpunkt enthalten, damit dieses Beispiel funktioniert, wobei n einer ganzen Zahl entspricht, die größer als oder gleich 1 ist.
With ActiveDocument.Pages(1).Shapes
.AddCurve SafeArrayOfPoints:=.Item(1).Vertices
End With
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.