Свойство ShapeRange.Vertices (Издатель)

Возвращает координаты вершин указанного рисунка свободной формы (и контрольных точек для кривых Безье) в виде ряда пар координат. Только для чтения, Variant.

Синтаксис

expression. Вершин

Выражение Переменная, представляющая объект ShapeRange .

Замечания

Используйте массив, возвращаемый этим свойством, в качестве аргумента для методов AddCurve или AddPolyline объекта Shapes .

В следующей таблице показано, как свойство Vertices связывает значения в массиве vertArray() с координатами вершин треугольника.

Элемент vertArray	Contains
vertArray(1, 1)	Горизонтальное расстояние от первой вершины до левой части страницы.
vertArray(1, 2)	Вертикальное расстояние от первой вершины до верхней части страницы.
vertArray(2, 1)	Горизонтальное расстояние от второй вершины до левой части страницы.
vertArray(2, 2)	Вертикальное расстояние от второй вершины до верхней части страницы.
vertArray(3, 1)	Горизонтальное расстояние от третьей вершины до левой части страницы.
vertArray(3, 2)	Вертикальное расстояние от третьей вершины до верхней части страницы.

Пример

В этом примере координаты вершин для первой фигуры в активной публикации присваиваются переменной vertArray()массива и отображаются координаты первой вершины.

Dim vertArray As Variant 
Dim sngX1 As Single 
Dim sngY1 As Single 
 
With ActiveDocument.Pages(1).Shapes(1) 
 vertArray = .Vertices 
 sngX1 = vertArray(1, 1) 
 sngY1 = vertArray(1, 2) 
 MsgBox "First vertex coordinates: " & sngX1 & ", " & sngY1 
End With

В этом примере создается кривая с тем же геометрическим описанием, что и фигура в активной публикации. Для работы этого примера фигура 1 должна содержать 3n+1 вершины, где n — целое число больше или равно 1.

With ActiveDocument.Pages(1).Shapes 
 .AddCurve SafeArrayOfPoints:=.Item(1).Vertices 
End With 

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.