Shape.Vertices-Eigenschaft (Word)

Artikel
04/07/2023

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

Ausdruck: Erforderlich. Eine Variable, die ein Shape-Objekt darstellt.

HinwBemerkungeneise

Verwenden Sie das von dieser Eigenschaft zurückgegebene Array als Argument für die AddCurve- oder AddPolyLine-Methode .

In der folgenden Tabelle wird dargestellt, wie die Vertices-Eigenschaft die Werte im Array vertArray() mit den Koordinaten der Scheitelpunkte eines Dreiecks verbindet.

vertArray-Element	Contains
`vertArray(1, 1)`	Den horizontalen Abstand des ersten Scheitelpunktes von der linken Kante des Dokuments.
`vertArray(1, 2)`	Den vertikalen Abstand des ersten Scheitelpunktes von der oberen Kante des Dokuments.
vertArray(2, 1)	Den horizontalen Abstand des zweiten Scheitelpunktes von der linken Kante des Dokuments.
`vertArray(2, 2)`	Den vertikalen Abstand des zweiten Scheitelpunktes von der oberen Kante des Dokuments.
`vertArray(3, 1)`	Den horizontalen Abstand des dritten Scheitelpunktes von der linken Kante des Dokuments.
`vertArray(3, 2)`	Den vertikalen Abstand des dritten Scheitelpunktes von der oberen Kante des Dokuments.

Beispiel

In diesem Beispiel werden die Scheitelpunktkoordinaten für Form 1 des aktiven Dokuments einer Arrayvariablen zugewiesen, und die Koordinaten für den ersten Scheitelpunkt werden angezeigt. Bei Form 1 muss es sich um eine Freihandform handeln.

With ActiveDocument.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, welche die gleiche geometrische Beschreibung hat wie Form 1 im aktiven Dokument. In diesem Beispiel wird vorausgesetzt, dass es sich bei der ersten Form um eine Bézierkurve mit 3n+1 Scheitelpunkten handelt, wobei n die Anzahl der Kurvensegmente bezeichnet.

With ActiveDocument.Shapes 
    .AddCurve .Item(1).Vertices, Selection.Range 
End With

Siehe auch

Shape-Objekt

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.