《AddNodes方法.docx》由会员分享,可在线阅读,更多相关《AddNodes方法.docx(2页珍藏版)》请在三一文库上搜索。
1、AddNodes 方法expression.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)expression 必需。该表达式返回“应用于”列表中的对象之一。SegmentType MsoSegmentType类型,必需。将要添加的线段的类型。MsoSegmentType 可为以下 MsoSegmentType 常量之一。msoSegmentLinemsoSegmentCurveEditingType MsoEditingType 类型,必需。顶点的编辑属性。MsoEditingType 可为以下 MsoEditingTyp
2、e 常量之一。msoEditingAutomsoEditingCorner不能是 msoEditingSmooth 或 msoEditingSymmetric如果 SegmentType 为 msoSegmentLine ,那么 EditingType 就必须是 msoEditingAuto 。X1 Single 类型,必需。如果新线段的EditingType 为msoEditingAuto ,那么本参数就以磅为单位指定文档的左上 角与新线段的终点之间的水平距离。如果新节点的EditingType 为msoEditingCorner ,那么本参数就以磅为单位指定文档的左 上角与新线段的第一个控
3、制点之间的水平距离。Y1 Single 类型,必需。如果新线段的EditingType 为msoEditingAuto ,那么本参数就以磅为单位指定文档的左上 角与新线段的终点之间的水平距离。如果新节点的EditingType 为msoEditingCorner ,那么本参数就以磅为单位指定文档的左 上角与新线段的第一个控制点之间的水平距离。X2 Variant 类型,可选。如果新线段的EditingType 为msoEditingCorner ,那么本参数就以磅为单位指定文档的左 上角与新线段的第二个控制点之间的水平距离。如果新线段的EditingType 为msoEditingAuto ,
4、那么请不要指定本参数的值。Y2 Variant 类型,可选如果新线段的EditingType 为msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第二个控制点之间的水平距离。如果新线段的EditingType 为msoEditingAuto ,那么请不要指定本参数的值。X3 Variant 类型,可选如果新线段的EditingType 为msoEditingCorner ,那么本参数就以磅为单位指定文档的左 上角与新线段的终点之间的水平距离。如果新线段的EditingType 为msoEditingAuto ,那么请不要指定本参数的值。Y3 Variant 类型
5、,可选如果新线段的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 .ConvertToShapeEnd With