Question

Shapes (Shape) ShapeNodes (ShapeNode)

由指定任意多边形中所有 ShapeNode 对象构成的集合。每个 ShapeNode 对象代表任意多边形线段之间的顶点或任意多边形曲线段的控点。可以手动创建一个任意多边形，也可使用 BuildFreeform 和 ConvertToShape 方法。

使用 ShapeNodes 集合

用 Nodes 属性可以返回一个 ShapeNodes 集合。下例删除活动文档图形 3 的顶点 4。为使本示例能运行，图形 3 必须是至少有四个顶点的任意多边形。

ActiveDocument.Shapes(3).Nodes.Delete 4

用 Insert 方法可创建一个新顶点，并将该顶点添入 ShapeNodes 集合。下例在活动文档图形 3 的顶点 4 的后面添加一个曲线型顶点及一条曲线段。为使本示例能运行，图形 3 必须是至少有四个顶点的任意多边形。

With ActiveDocument.Shapes(3).Nodes
 .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100
End With

用 Nodes(index) 可以返回单独的 ShapeNode 对象，其中index 是顶点的索引序号。如果活动文档中图形 3 的顶点 1 是一个角点，则下例使其变成一个平滑顶点。为使本示例能运行，图形 3 必须是任意多边形。

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