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

另请参阅

CanvasShapes 集合

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。