AddNodes方法

MsoSegmentType 可为以下 MsoSegmentType 常量之一。 msoSegmentLine msoSegmentCurve EditingType MsoEditingType 类型，必需。顶点的编辑属性。

MsoEditingType 可为以下 MsoEditingType 常量之一。 msoEditingAuto msoEditingCorner 不能是 msoEditingSmooth 或 msoEditingSymmetric 如果 SegmentType 为 msoSegmentLine，那么 EditingType 就必须是 msoEditingAuto。 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，那么请不要指定本参数的值。 Excel VBA教程：AddNodes方法·示例

本示例向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