Shape.Vertices-Eigenschaft (Excel)
Gibt die Koordinaten der Scheitelpunkte der angegebenen Freihandform (und der Kontrollpunkte für Bézierkurven) als Folge von Koordinatenpaaren zurück. Verwenden Sie das von dieser Eigenschaft zurückgegebene Array als Argument für die AddCurve - oder AddPolyLine-Methode . Schreibgeschützter Variant-Wert.
Syntax
Ausdruck. Eckpunkte
expression Eine Variable, die ein Shape-Objekt darstellt.
Hinweise
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 zwischen dem ersten Scheitelpunkt und der linken Seite des Dokuments |
vertArray(1, 2) |
Der vertikale Abstand zwischen dem ersten Scheitelpunkt und der oberen Seite des Dokuments |
vertArray(2, 1) |
Der horizontale Abstand zwischen dem zweiten Scheitelpunkt und der linken Seite des Dokuments |
vertArray(2, 2) |
Der vertikale Abstand zwischen dem zweiten Scheitelpunkt und der oberen Seite des Dokuments |
vertArray(3, 1) |
Der horizontale Abstand zwischen dem dritten Scheitelpunkt und der linken Seite des Dokuments |
vertArray(3, 2) |
Der vertikale Abstand zwischen dem dritten Scheitelpunkt und der oberen Seite des Dokuments |
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 = Worksheets(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 = Worksheets(1)
With myDocument.Shapes
.AddCurve .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.