Метод Shapes.AddPolyline (Издатель)

Статья
04/07/2023

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

Синтаксис

expression. AddPolyline (SafeArrayOfPoints)

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

Параметры

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

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

Shape

Примечания

Для элементов массива в SafeArrayOfPoints числовые значения оцениваются в точках; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").

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

Пример

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

Dim shpPolyline As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 25 
arrPoints(1, 2) = 100 
arrPoints(2, 1) = 100 
arrPoints(2, 2) = 150 
arrPoints(3, 1) = 150 
arrPoints(3, 2) = 50 
arrPoints(4, 1) = 25 
arrPoints(4, 2) = 100 
 
Set shpPolyline = ActiveDocument.Pages(1).Shapes.AddPolyline _ 
 (SafeArrayOfPoints:=arrPoints)

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

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

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