Метод Shapes.BuildFreeform (Excel)

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

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

Синтаксис

expression. BuildFreeform (EditingType, X1, Y1)

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

Параметры

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

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

FreeformBuilder

Пример

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

Set myDocument = Worksheets(1) 
With myDocument.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

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

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