Метод FreeformBuilder.ConvertToShape (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. ConvertToShape

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

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

Shape

Примечания

Необходимо хотя бы один раз применить метод AddNodes к объекту FreeformBuilder , прежде чем использовать метод ConvertToShape , в противном случае возникнет ошибка.

Пример

В этом примере на первую страницу активной публикации добавляется свободная форма с четырьмя вершинами.

' Add a new freeform object. 
With ActiveDocument.Shapes _ 
 .BuildFreeform(EditingType:=msoEditingCorner, _ 
 X1:=100, Y1:=100) 
 
 ' Add three more nodes and close the polygon. 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, _ 
 X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=200, Y1:=100 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=150, Y1:=50 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=100, Y1:=100 
 
 ' Convert the polygon to a Shape object. 
 .ConvertToShape 
End With

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

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

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