This documentation is archived and is not being maintained.

# Vertices Property

**Office 2003**

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 to the **AddCurve**
method or **AddPolyline**
method. Read-only **Variant**.

The following table shows how the **Vertices** property associates the 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 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
.AddCurve .Item(1).
```**Vertices**
End With

**See Also**| Points Property

Show: