Свойство Shape.Vertices (Word)

Статья
04/07/2023

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

Синтаксис

expression. Вершин

выражение (обязательно). Переменная, представляющая объект Shape .

Замечания

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

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

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

Пример

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

With ActiveDocument.Shapes(1) 
    vertArray = .Vertices 
    x1 = vertArray(1, 1) 
    y1 = vertArray(1, 2) 
    MsgBox "First vertex coordinates: " & x1 & ", " & y1 
End With

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

With ActiveDocument.Shapes 
    .AddCurve .Item(1).Vertices, Selection.Range 
End With

См. также

Объект Shape

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

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

Поделиться через