Метод Shapes.BuildFreeform (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. BuildFreeform (EditingType, X1, Y1)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
EditingType	Обязательный	MsoEditingType	Указывает тип редактирования первого узла. Может быть одной из констант MsoEditingType , объявленных в библиотеке типов Microsoft Office.
X1	Обязательный	Variant	Горизонтальное положение первого узла в документе свободной формы относительно левого верхнего угла страницы.
Y1	Обязательный	Variant	Вертикальное положение первого узла в документе свободной формы относительно левого верхнего угла страницы.

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

FreeformBuilder

Пример

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

Используйте метод AddNodes для добавления сегментов в свободную форму. После добавления хотя бы одного сегмента во свободную форму можно использовать метод ConvertToShape для преобразования объекта FreeformBuilder в объект Shape с геометрическим описанием, определенным в объекте FreeformBuilder .

' Add a new freeform object. 
With ActiveDocument.Shapes _ 
 .BuildFreeform(EditingType:=msoEditingCorner, _ 
 X1:=100, Y1:=100) 
 
 ' Add three more nodes and close the polygon. 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, _ 
 X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=200, Y1:=100 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=150, Y1:=50 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=100, Y1:=100 
 
 ' Convert the polygon to a Shape object. 
 .ConvertToShape 
End With

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

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

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