Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Представляет геометрию свободной формы во время ее сборки.
Замечания
Используйте метод BuildFreeform объекта Shapes , чтобы вернуть объект FreeformBuilder . Используйте метод AddNodes для добавления узлов в свободную форму. Используйте метод ConvertToShape , чтобы создать фигуру, определенную в объекте FreeformBuilder , и добавить ее в коллекцию Shapes .
Пример
В следующем примере в 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 и обратная связь.