or AddPolyLine
method. Read-only Variant.
expression.Vertices
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
The following table shows how the Vertices property associates values in the array vertArray()
with the coordinates of a triangle's vertices.
vertArray element | Contains |
---|---|
vertArray(1, 1) |
The horizontal distance from the first vertex to the left side of the document. |
vertArray(1, 2) |
The vertical distance from the first vertex to the top of the document. |
vertArray(2, 1) |
The horizontal distance from the second vertex to the left side of the document. |
vertArray(2, 2) |
The vertical distance from the second vertex to the top of the document. |
vertArray(3, 1) |
The horizontal distance from the third vertex to the left side of the document. |
vertArray(3, 2) |
The vertical distance from the third vertex to the top of the document. |
Example
This example assigns the vertex coordinates for shape one in the active document to an array variable and displays the coordinates for the first vertex. Shape one must be a freeform drawing.
With ActiveDocument.Shapes(1)
vertArray = .Vertices
x1 = vertArray(1, 1)
y1 = vertArray(1, 2)
MsgBox "First vertex coordinates: " & x1 & ", " & y1
End With
This example creates a curve that has the same geometric description as shape one in the active document. This example assumes that the first shape is a Bézier curve containing 3n+1 vertices, where n is the number of curve segments.
With ActiveDocument.Shapes
.AddCurve .Item(1).Vertices, Selection.Range
End With