FreeformBuilder.AddNodes 方法 (Word)
将新线段插入到正在创建的任意多边形的尾部,并添加顶点以定义此线段。
语法
表达式。AddNodes (SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)
expression 是必需的。 一个代表“FreeformBuilder”对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
SegmentType | 必需 | MsoSegmentType | 要添加的线段的类型。 |
EditingType | 必需 | MsoEditingType | 顶点的编辑属性。 如果 SegmentType msoSegmentLine ,EditingType 必须是 msoEditingAuto 。 |
X1 | 必需 | Single | 如果新段的 EditingType msoEditingAuto ,该参数指定文档的左上角从具有新线段的终点的水平距离 (以磅为单位)。 如果新节点的 EditingType msoEditingCorner ,该参数指定从文档的左上角具有与新段的第一个控制点的水平距离 (以磅为单位)。 |
Y1 | 必需 | Single | 如果新段的 EditingType msoEditingAuto ,该参数指定从文档的左上角具有新线段的终点的垂直距离 (以磅为单位)。 如果新节点的 EditingType msoEditingCorner ,此参数指定的垂直距离 (以磅为单位) 从文档的左上角新段的第一个控制点。 |
X2 | 可选 | Single | 如果新段的 EditingType msoEditingCorner ,该参数指定从文档的左上角具有对新段的第二个控制点的水平距离 (以磅为单位)。 新线段的 EditingType 是 msoEditingAuto ,如果不指定该参数的值。 |
Y2 | 可选 | Single | 如果新段的 EditingType msoEditingCorner ,此参数指定的垂直距离 (以磅为单位) 从文档的左上角新段的第二个控制点。 新线段的 EditingType 是 msoEditingAuto ,如果不指定该参数的值。 |
X3 | 可选 | Single | 如果新段的 EditingType msoEditingCorner ,该参数指定文档的左上角从具有新线段的终点的水平距离 (以磅为单位)。 新线段的 EditingType 是 msoEditingAuto ,如果不指定该参数的值。 |
Y3 | 可选 | Single | 如果新段的 EditingType msoEditingCorner ,该参数指定从文档的左上角具有新线段的终点的垂直距离 (以磅为单位)。 新线段的 EditingType 是 msoEditingAuto ,如果不指定该参数的值。 |
备注
尽可能多次使用此方法将节点添加到要创建的任意多边形。 当您完成添加节点时,使用 ConvertToShape 方法来创建您刚刚定义的任意多边形。 它创建后,请将节点添加到任意多边形,使用 ShapeNodes 集合的 插入 方法。
示例
本示例将一个具有五个顶点的任意多边形添加到活动文档中。
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。