Anmerkung
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 (und Kontrollpunkte für Bézierkurven) der angegebenen Freihandform als eine Serie von Koordinatenpaaren zurück. Schreibgeschützt.
Syntax
Ausdruck. Eckpunkte
Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.
Rückgabewert
Variant
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) |
Der horizontale Abstand vom ersten Scheitelpunkt zur linken Seite der Folie |
VertArray(1, 2) |
Der vertikale Abstand vom ersten Scheitelpunkt zum oberen Rand der Folie |
VertArray(2, 1) |
Der horizontale Abstand vom zweiten Scheitelpunkt zum linken Rand der Folie |
VertArray(2, 2) |
Der vertikale Abstand vom zweiten Scheitelpunkt zum oberen Rand der Folie |
VertArray(3, 1) |
Der horizontale Abstand vom dritten Scheitelpunkt zum linken Rand der Folie |
VertArray(3, 2) |
Der vertikale Abstand vom dritten Scheitelpunkt zum oberen Rand der Folie |
Beispiel
In diesem Beispiel werden die Vertexkoordinaten für Form 1 in myDocument der Arrayvariablen vertArray() zugewiesen und die Koordinaten für den ersten Scheitelpunkt angezeigt.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1)
vertArray = .Vertices
x1 = vertArray(1, 1)
y1 = vertArray(1, 2)
MsgBox "First vertex coordinates: " & x1 & ", " & y1
End With
In diesem Beispiel wird eine Kurve erstellt, die dieselbe geometrische Beschreibung wie Form 1 in myDocument hat. Form 1 muss 3 n +1 Scheitelpunkte enthalten, damit dieses Beispiel erfolgreich ist.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
End With
Siehe auch
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.