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

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

Синтаксис

expression. Вершин

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

Возвращаемое значение

Variant

Примечания

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

В следующей таблице показано, как свойство 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 = 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

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

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes

    .AddCurve .Item(1).Vertices

End With

См. также

Объект Shape

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

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