ShapeNodes 集合对象

Shapes (Shape) ShapeNodes (ShapeNode)

指定的任意多边形上的所有 ShapeNode 对象的集合。ShapeNode 对象代表任意多边形各线段之间的顶点或曲线段上的控制点。可手动创建任意多边形，或用 BuildFreeform 方法和 ConvertToShape 方法。

ShapeNodes 集合的的用法

可用 Nodes 属性返回 ShapeNodes 集合。下例删除 myDocument 中图形三上的节点四。为使本示例正常运行，图形三必须是至少有四个节点的任意多边形。

Set myDocument = Worksheets(1)
myDocument.Shapes(3).Nodes.Delete 4

可用 Insert 方法创建新的节点并将其添加到 ShapeNodes 集合中。下例在 myDocument 中图形三上的节点四之后添加了一个光滑节点。为使本示例正常运行，图形三必须是至少有四个节点的任意多边形。

Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100
End With

可用 Nodes(index) 返回单个 ShapeNode对象，其中 index 为节点编号。如果 myDocument 上图形三的节点一位于尖角上，下例将使该尖角变得光滑。为使本示例正常运行，图形三必须是任意多边形。

Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
    If .Nodes(1).EditingType = msoEditingCorner Then
        .Nodes.SetEditingType 1, msoEditingSmooth
    End If
End With