CanvasShapes.BuildFreeform 方法 (Word)
建立任意多边形对象。 返回一个 FreeformBuilder 对象，该对象表示正在建立的任意多边形。 .
语法
expression. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )
expression 是必需的。 一个代表“CanvasShapes”对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| EditingType | 必需 | MsoEditingType | EditingType 参数可以是 msoEditingAuto 或 msoEditingCorner；不能是 msoEditingSmooth 或 msoEditingSymmetric。 |
| X1 | 必需 | Single | 任意多边形第一个顶点相对于文档左边缘的位置（以磅为单位）。 |
| Y1 | 必需 | Single | 任意多边形第一个顶点相对于文档顶端的位置（以磅为单位）。 |
备注
使用 AddNodes 方法添加到任意多边形的线段。 向任意多边形添加至少一个段后，可以使用 ConvertToShape 方法将 FreeformBuilder 对象转换为具有你在 FreeformBuilder 对象中定义的几何说明的 Shape 对象。
示例
本示例将一个具有五个顶点的任意多边形添加到活动文档中。
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.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 支持和反馈，获取有关如何接收支持和提供反馈的指南。