Shape.Vertices-Eigenschaft (Excel)

  • Artikel

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. Scheitelpunkte

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

HinwBemerkungeneise

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.