通过

ShapeNodes 对象 (PowerPoint)

  • 项目

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

备注

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

示例

使用该 节点 属性可返回 ShapeNodes 集合。 下例删除 myDocument 上形状三中的结点四。 对于本示例生效，第三个形状必须有至少四个节点的任意多边形。

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Nodes.Delete 4

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

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With

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

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With

另请参阅

PowerPoint 对象模型引用

支持和反馈

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