Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Создает фигуру с геометрическими характеристиками указанного объекта FreeformBuilder . Возвращает объект Shape , представляющий новую фигуру.
Синтаксис
expression. ConvertToShape
выражение Переменная, представляющая объект FreeformBuilder .
Возвращаемое значение
Shape
Примечания
Перед использованием метода ConvertToShape необходимо по крайней мере один раз применить метод AddNodes к объекту 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 и обратная связь.