Метод Shapes.AddPolyline (PowerPoint)

Статья
04/07/2023

Создает открытый многолинейный рисунок или рисунок закрытого многоугольника. Возвращает объект Shape , представляющий новую многолинейную линию или многоугольник.

Синтаксис

выражение. AddPolyline( _SafeArrayOfPoints_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SafeArrayOfPoints	Обязательный	Variant	Массив пар координат, указывающий вершины многолинейного рисунка.

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

Shape

Примечания

Чтобы сформировать замкнутый многоугольник, присвойте те же координаты первой и последней вершинам в документе полилайна.

Пример

В этом примере в myDocument добавляется треугольник. Так как первая и последняя точки имеют одинаковые координаты, многоугольник закрывается и заполняется. Цвет внутренней части треугольника будет таким же, как цвет заливки фигуры по умолчанию.

Dim triArray(1 To 4, 1 To 2) As Single

triArray(1, 1) = 25

triArray(1, 2) = 100

triArray(2, 1) = 100

triArray(2, 2) = 150

triArray(3, 1) = 150

triArray(3, 2) = 50

triArray(4, 1) = 25     ' Last point has same coordinates as first

triArray(4, 2) = 100

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes.AddPolyline SafeArrayOfPoints:=triArray

См. также

Объект Shapes

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

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

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