Метод Shapes.BuildFreeform (PowerPoint)

  • Статья

Создает объект свободной формы. Возвращает объект 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

См. также

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

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