AddNodes 方法

       

expression.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

expression   必需。该表达式返回“应用于”列表中的对象之一。

SegmentType   MsoSegmentType 类型,必需。将要添加的线段的类型。

EditingType  MsoEditingType 类型,必需。顶点的编辑属性。

X1  Single 类型,必需。

Y1  Single 类型,必需。

X2  Variant 类型,可选。

Y2  Variant 类型,可选。

X3  Variant 类型,可选。

Y3  Variant 类型,可选。

示例

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