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

Объект FreeformBuilder (PowerPoint)

  • Статья

Представляет геометрию свободной формы во время ее сборки.

Пример

Используйте метод BuildFreeform, чтобы вернуть объект FreeformBuilder . Используйте метод AddNodesдля добавления узлов в freefrom. Используйте метод ConvertToShape, чтобы создать фигуру, определенную в объекте FreeformBuilder , и добавить ее в коллекцию Shapes . В следующем примере в myDocument добавляется свободная форма с четырьмя сегментами.

Set myDocument = ActivePresentation.Slides(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, 40
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
    .ConvertToShape
End With

См. также

Справочник по объектной модели PowerPoint

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

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