Метод Shapes.BuildFreeform (PowerPoint)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

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

FreeformBuilder

Замечания

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

Пример

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

    Set myDocument = ActivePresentation.Slides(1)
    With myDocument.Shapes.BuildFreeform(EditingType:=msoEditingCorner, _
    X1:=360, Y1:=200) 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _ 
            X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=200 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=400 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=360, Y1:=200 
        .ConvertToShape 
    End With

См. также

Объект Shapes

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

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

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