全部显示

AddNodes 方法

本方法将新线段插入到正在创建的任意多边形的尾部，并添加顶点以定义此线段。如果需要，可反复使用此方法将顶点添加至正在创建的任意多边形。添完顶点后可用 ConvertToShape 方法来创建刚才定义的任意多边形。若要为已创建完的任意多边形添加顶点，请用 ShapeNodes 集合的 Insert 方法。

expression   必需。该表达式返回一个 FreeformBuilder 对象。

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

EditingType  MsoEditingType，必需。顶点的编辑属性。如果 SegmentType 属性为 msoSegmentLine，则 EditingType 属性必须为 msoEditingAuto。

X1  Single 类型，必需。如果新线段的 EditingType 属性为 msoEditingAuto，则此参数指定从文档左上角到新线段终点的水平距离（以磅为单位）。如果新顶点的 EditingType 属性为 msoEditingCorner，则此参数指定文档左上角到新线段第一个控制点的水平距离（以磅为单位）。

Y1  Single 类型，必需。如果新线段的 EditingType 属性为 msoEditingAuto，则此参数指定从文档左上角到新线段终点的垂直距离（以磅为单位）。如果新顶点的 EditingType 属性为 msoEditingCorner，则此参数指定文档从左上角到新线段第一个控制点的垂直距离（以磅为单位）。

X2  Single 类型，可选。如果新线段的 EditingType 属性为 msoEditingCorner，则此参数指定从文档左上角到新线段第二个控制点的水平距离（以磅为单位）。如果新线段的 EditingType 属性为 msoEditingAuto，则可忽略此参数。

Y2  Single 类型，可选。如果新线段的 EditingType 属性为 msoEditingCorner，则此参数指定从文档左上角到新线段第二个控点的垂直距离（以磅为单位）。如果新线段的 EditingType 属性为 msoEditingAuto，则可忽略此参数。

X3  Single 类型，可选。如果新线段的 EditingType 属性为 msoEditingCorner，则此参数指定从文档左上角到新线段终点的水平距离（以磅为单位）。如果新线段的 EditingType 属性为 msoEditingAuto，则可忽略此参数。

Y3  Single 类型，可选。如果新线段的 EditingType 属性为 msoEditingCorner，则此参数指定从文档左上角到新线段终点的垂直距离（以磅为单位）。如果新线段的 EditingType 属性为 msoEditingAuto，则可忽略此参数。

示例

本示例将一个具有五个顶点的任意多边形添加至活动文档中。

Dim docActive As Document

Set docActive = ActiveDocument

With docActive.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