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

  • Статья

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

Синтаксис

expression. Вершин

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

Замечания

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

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

Пример

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

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

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

Set myDocument = Worksheets(1) 
With myDocument.Shapes 
 .AddCurve .Item(1).Vertices 
End With

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

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