Метод Shapes.AddCurve (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. AddCurve (SafeArrayOfPoints)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SafeArrayOfPoints	Обязательный	Variant	Массив пар координат, указывающий вершины и контрольные точки кривой. Первая указанная точка — это начальная вершина, а следующие две точки — контрольные точки для первого сегмента Безье. Для каждого дополнительного сегмента кривой необходимо указать вершину и две контрольные точки. Последняя указанная точка — это конечная вершина кривой. Обратите внимание, что необходимо всегда указывать 3n + 1 точки, где n — количество сегментов в кривой.

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

Shape

Примечания

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

Пример

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

Dim shpCurve As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 0 
arrPoints(1, 2) = 0 
arrPoints(2, 1) = 72 
arrPoints(2, 2) = 72 
arrPoints(3, 1) = 144 
arrPoints(3, 2) = 36 
arrPoints(4, 1) = 216 
arrPoints(4, 2) = 108 
 
Set shpCurve = ActiveDocument.Pages(1).Shapes.AddCurve _ 
 (SafeArrayOfPoints:=arrPoints)

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

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

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