FreeformBuilder.AddNodes 方法 (Excel)
在当前形状中添加一个点,然后将一条线从当前节点绘制到添加的最后一个节点。
语法
表达式。AddNodes (SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)
表达 一个代表 FreeformBuilder 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
SegmentType | 必需 | MsoSegmentType | 要添加的线段的类型。 |
EditingType | 必需 | MsoEditingType | 顶点的编辑属性。 |
X1 | 必需 | Single | 如果新段的 EditingType 为 msoEditingAuto,则此参数指定从文档左上角到新段的终点的水平距离) (以 磅 为单位。 如果新节点的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段的第一个控制点的水平距离) (以磅为单位。 |
Y1 | 必需 | Single | 如果新线段的 EditingType 为 msoEditingAuto,则此参数指定从文档左上角到新线段终点的水平距离(以磅为单位)。 如果新节点的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段的第一个控制点的水平距离) (以磅为单位。 |
X2 | 可选 | Variant | 如果新段的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段的第二个控制点的水平距离) (以磅为单位。 如果新段的 EditingType 为 msoEditingAuto,则不要为此参数指定值。 |
Y2 | 可选 | Variant | 如果新段的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段的第二个控制点的水平距离) (以磅为单位。 如果新段的 EditingType 为 msoEditingAuto,则不要为此参数指定值。 |
X3 | 可选 | Variant | 如果新段的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段的第二个控制点的水平距离) (以磅为单位。 如果新段的 EditingType 为 msoEditingAuto,则不要为此参数指定值。 |
Y3 | 可选 | Variant | 如果新段的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段的第二个控制点的水平距离) (以磅为单位。 如果新线段的 EditingType 为 msoEditingAuto,请不要指定该参数的值。 |
备注
MsoEditingType 不能为 msoEditingSmooth 或 msoEditingSymmetric。 如果 SegmentType 为 msoSegmentLine, 则 EditingType 必须为 msoEditingAuto。
示例
本示例向 myDocument 中添加带有四条线段的任意多边形。
Set myDocument = Worksheets(1)
With myDocument.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 支持和反馈,获取有关如何接收支持和提供反馈的指南。