expression.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expression 必需。该表达式返回“应用于”列表中的对象之一。
SegmentType MsoSegmentType 类型,必需。将要添加的线段的类型。
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,那么请不要指定本参数的值。 |
本示例向 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