通过

ShapeNodes.Insert 方法 (Excel)

在任意多边形中插入顶点。

语法

表达式。插入 (Index、 SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)

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

参数

名称 必需/可选 数据类型 说明
Index 必需 Integer 长 。 要在其后插入新顶点的多边形顶点的编号。
SegmentType 必需 MsoSegmentType 线段类型。
EditingType 必需 MsoEditingType 编辑类型。
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，请不要指定该参数的值。

示例

此示例选择活动文档的第三个形状，检查该形状是否是一个任意多边形对象，如果是，则插入一个节点。 此示例假定在活动工作表中存在三种形状。

Sub InsertShapeNode() 
    ActiveSheet.Shapes(3).Select 
    With Selection.ShapeRange 
        If .Type = msoFreeform Then 
            .Nodes.Insert _ 
                Index:=3, SegmentType:=msoSegmentCurve, _ 
                EditingType:=msoEditingSymmetric, X1:=35, Y1:=100 
            .Fill.ForeColor.RGB = RGB(0, 0, 200) 
            .Fill.Visible = msoTrue 
        Else 
            MsgBox "This shape is not a Freeform object." 
        End If 
    End With 
End Sub

支持和反馈

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