FreeformBuilder.AddNodes 方法 (Excel)

在当前形状中添加一个点，然后将一条线从当前节点绘制到添加的最后一个节点。

语法

表达式。AddNodes (SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)

表达 一个代表 FreeformBuilder 对象的变量。

参数

名称	必需/可选	数据类型	说明
SegmentType	必需	MsoSegmentType	要添加的线段的类型。
EditingType	必需	MsoEditingType	顶点的编辑属性。
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，请不要指定该参数的值。

备注

MsoEditingType 不能为 msoEditingSmooth 或 msoEditingSymmetric。 如果 SegmentType 为 msoSegmentLine， 则 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。