ShapeNodes 对象 (Excel)

集合中的所有 ShapeNode 对象指定任意多边形。

备注

每个 ShapeNode 对象代表任意多边形中的线段或任意多边形曲线段的控点之间的节点。 您可以创建任意多边形手动或通过使用 BuildFreeform 和 ConvertToShape 方法。

示例

使用 Shape 对象的 Nodes 属性可返回 ShapeNodes 集合。 下例删除 myDocument 上形状三中的结点四。 要使本示例运行，形状三必须是至少有四个结点的任意多边形。

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

使用 插入 若要创建一个新节点并将其添加到 ShapeNodes 集合的方法。 下例在 myDocument 上的形状三中的结点四之后添加一带有曲线段的平滑结点。 要使本示例运行，形状三必须是至少有四个结点的任意多边形。

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

使用 Nodes (索引) （其中 index 是节点索引号）返回单个 ShapeNode 对象。 如果 myDocument 上形状三中的结点一是角顶点，则下例使其成为平滑顶点。 要使本示例运行，形状三必须是任意多边形。

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

方法

• Delete
• 插入
• 项
• SetEditingType
• SetPosition
• SetSegmentType

属性

• 应用程序
• Count
• Creator
• Parent

另请参阅

• Excel 对象模型引用

支持和反馈

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