ShapeRange.Vertices-Eigenschaft (PowerPoint)

Artikel
04/07/2023

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

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

Variant

Bemerkungen

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

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