Shapes.BuildFreeform 方法 (Word)
建立任意多边形对象。
语法
expression. BuildFreeform
( _EditingType_
, _X1_
, _Y1_
)
expression 是必需的。 一个代表 Shapes 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
EditingType | 必需 | MsoEditingType | 第一个顶点的编辑属性。 |
X1 | 必需 | Single | 任意多边形第一个顶点相对于文档左边缘的位置(以磅为单位)。 |
Y1 | 必需 | Single | 任意多边形第一个顶点相对于文档上边缘的位置(以磅为单位)。 |
返回值
备注
使用 AddNodes 方法添加到任意多边形的线段。 至少一个段添加到任意多边形的形状后,可以使用 ConvertToShape 方法将 FreeformBuilder 对象转换为 Shape 对象,该对象具有已定义的 FreeformBuilder 对象中的几何描述。
示例
本示例将一个具有五个顶点的任意多边形添加到活动文档中。
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈