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

Статья
04/07/2023

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

Синтаксис

expression. Вершин

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

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

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

См. также

Объект ShapeRange

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

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

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