Question

全部显示

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

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

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

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

MsoSegmentType 可以是下列 MsoSegmentType 常量之一：

msoSegmentLine

msoSegmentCurve

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

MsoEditingType 可以是下列 MsoEditingType 常量之一：

msoEditingAuto

msoEditingCorner

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

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

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

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

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

Y3Single 类型，可选。如果新线段的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