PowerPoint VBA教程:ShapeNodes集合对象

Shapes (Shape)
ShapeNodes (ShapeNode)

指定任意多边形中所有ShapeNode对象的集合。每个 ShapeNode对象代表任意多边形段间的结点或曲线段的控制点。可以手动或使用BuildFreeformConvertToShape方法创建任意多边形。

使用 ShapeNodes集合

使用 Nodes属性返回 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对象,此处 index 是结点索引号。如果在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 VBA教程:ShapeNode对象 下页:PowerPoint VBA教程:ShapeRange集合对象

PowerPoint VBA教程:ShapeNodes集合对象

PowerPoint VBA教程:ShapeRange集合对象 PowerPoint VBA教程:Shapes集合对象
PowerPoint VBA教程:Slide对象 PowerPoint VBA教程:SlideRange集合对象
PowerPoint VBA教程:Slides集合对象 PowerPoint VBA教程:SlideShowSettings对象
PowerPoint VBA教程:SlideShowTransition对象 PowerPoint VBA教程:SlideShowView对象
PowerPoint VBA教程:SlideShowWindow对象 PowerPoint VBA教程:SlideShowWindows集合对象
PowerPoint VBA教程:SoundEffect对象 PowerPoint VBA教程:Table对象
PowerPoint VBA教程:TabStop对象 PowerPoint VBA教程:TabStops集合对象
PowerPoint VBA教程:Tags对象 PowerPoint VBA教程:TextEffectFormat对象
PowerPoint VBA教程:TextFrame对象 PowerPoint VBA教程:TextRange对象
PowerPoint VBA教程:TextStyle对象 PowerPoint VBA教程:TextStyleLevel对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号