Excel VBA教程: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

上页:Excel VBA教程:ShapeNode对象 下页:Excel VBA教程:ShapeRange集合

Excel VBA教程:ShapeNodes集合对象

Excel VBA教程:ShapeRange集合 Excel VBA教程:Shapes集合
Excel VBA教程:Sheets集合对象 Excel VBA教程:SmartTag对象
Excel VBA教程:SmartTagAction对象 Excel VBA教程:SmartTagActions集合
Excel VBA教程:SmartTagOptions对象 Excel VBA教程:SmartTagRecognizer对象
Excel VBA教程:SmartTagRecognizers集合 Excel VBA教程:SmartTags集合
Excel VBA教程:SoundNote对象 Excel VBA教程:Speech对象
Excel VBA教程:SpellingOptions对象 Excel VBA教程:Style对象
Excel VBA教程:Styles集合 Excel VBA教程:Tab对象
Excel VBA教程:TextEffectFormat对象 Excel VBA教程:TextFrame对象
Excel VBA教程:ThreeDFormat对象 Excel VBA教程:TickLabels对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号