Shapes.BuildFreeform 方法 (Publisher)

建立任意多边形对象。 返回一个 FreeformBuilder 对象，该对象表示正在建立的任意多边形。

语法

表达式。BuildFreeform (EditingType、 X1、 Y1)

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
EditingType	必需	MsoEditingType	指定第一个节点的编辑类型。 可以是 Microsoft Office 类型库中声明的 MsoEditingType 常量之一。
X1	必需	Variant	任意多边形第一个节点相对于页面左上角的水平位置。
Y1	必需	Variant	任意多边形第一个节点相对于页面左上角的垂直位置。

返回值

FreeformBuilder

示例

对于 X1 和 Y1 参数，数值以 磅为单位计算：字符串可以位于 Microsoft Publisher (支持的任何单元中，例如，“2.5 in”) 。

使用 AddNodes 方法添加到任意多边形的线段。 向任意多边形添加至少一个段后，可以使用 ConvertToShape 方法将 FreeformBuilder 对象转换为 Shape 对象，该对象具有在 FreeformBuilder 对象中定义的几何说明。

' 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。