Shape.Vertices-Eigenschaft (PowerPoint)
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 Shape-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
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.