Метод Shapes.BuildFreeform (Word)

Статья
04/07/2023

Создает объект свободной формы.

Синтаксис

выражение. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
EditingType	Обязательный	MsoEditingType	Свойство редактирования первого узла.
X1	Обязательный	Single	Позиция (в точках) первого узла в документе свободной формы относительно левого края документа.
Y1	Обязательный	Single	Положение (в точках) первого узла в документе свободной формы относительно верхнего края документа.

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

FreeformBuilder

Замечания

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

Пример

В этом примере в активный документ добавляется свободная форма с пятью вершинами.

Dim docActive As Document 
 
Set docActive = ActiveDocument

With docActive.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
 .AddNodes msoSegmentCurve, msoEditingCorner, _ 
 380, 230, 400, 250, 450, 300 
 .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200 
 .AddNodes msoSegmentLine, msoEditingAuto, 480, 400 
 .AddNodes msoSegmentLine, msoEditingAuto, 360, 200 
 .ConvertToShape 
End With

См. также

Объект Shapes Collection

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

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

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