Show All

Vertices Property

Returns the coordinates of the specified freeform drawing's vertices (and control points for Bézier curves) as a series of coordinate pairs. You can use the array returned by this property as an argument for the AddCurve or AddPolyLine method. Read-only Variant.

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.

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