Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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
expression Eine Variable, die ein Shape-Objekt darstellt.
Hinweise
Verwenden Sie das von dieser Eigenschaft zurückgegebene Array als Argument für die AddCurve- oder AddPolyline-Methode .
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.