# ShapeRange.Vertices Property (PowerPoint)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Returns the coordinates of the specified freeform drawing's vertices (and control points for B?zier curves) as a series of coordinate pairs. Read-only.

## Syntax

expression. Vertices

expression A variable that represents a ShapeRange object.

Variant

## Remarks

You can use the array returned by this property as an argument to the AddCurve method or AddPolyline method.

The following table shows how the Vertices property associates the values in the array `vertArray()` with the coordinates of a triangle's vertices.

VertArray elementContains
`VertArray(1, 1)`The horizontal distance from the first vertex to the left side of the slide
`VertArray(1, 2)`The vertical distance from the first vertex to the top of the slide
`VertArray(2, 1)`The horizontal distance from the second vertex to the left side of the slide
`VertArray(2, 2)`The vertical distance from the second vertex to the top of the slide
`VertArray(3, 1)`The horizontal distance from the third vertex to the left side of the slide
`VertArray(3, 2)`The vertical distance from the third vertex to the top of the slide

## Example

This example assigns the vertex coordinates for shape one on `myDocument` to the array variable `vertArray()` and displays the coordinates for the first vertex.

``````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
``````

This example creates a curve that has the same geometric description as shape one on `myDocument`. Shape one must contain 3 n +1 vertices for this example to succeed.

``````Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes