Объект FreeformBuilder (Издатель)

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

Замечания

Используйте метод BuildFreeform коллекции Shapes , чтобы вернуть объект FreeformBuilder .

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

Пример

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

Sub CreateNewFreeFormShape() 
 With ActiveDocument.Pages(1).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 
End Sub

Методы

• AddNodes
• ConvertToShape

Свойства

• Application
• Parent

См. также

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

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

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