Word VBA教程:ShapeNodes集合对象

Shapes (Shape)
ShapeNodes (ShapeNode)

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

使用 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号