PowerPoint VBA教程:Nodes属性

应用于 Diagram对象的 Nodes属性。

返回DiagramNodes对象,该对象包含指定图示中所有节点的展开列表。

expression.Nodes

expression  必选。该表达式返回一个Diagram对象。

应用于 Shape 和 ShapeRange对象的 Nodes属性。

返回一个ShapeNodes集合,该集合代表指定形状的几何说明。应用于代表任意多边形绘图的 Shape 或 ShapeRange对象。

expression.Nodes

expression  必选。该表达式返回上述对象之一。

VBA示例

应用于 Diagram对象。

以下示例返回新建图示中的节点数。


Sub ConvertPyramidDiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    'Create pyramid diagram and add first node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Add three child nodes to the first node
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes
    'Automatically layout diagram and convert to radial diagram
    With dgnNode.Diagram
        .AutoLayout = msoTrue
        .Convert Type:=msoDiagramRadial
    End With
    'Display the number of nodes in the diagram
    MsgBox dgnNode.Diagram.Nodes.Count
End Sub

应用于 Shape对象。

本示例在myDocument 中第三个形状的第四个结点后添加一个带有一段曲线的平滑结点。第三个形状必须是至少有四个结点的任意多边形。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    .Insert Index:=4, SegmentType:=msoSegmentCurve, _
        EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With

上页:PowerPoint VBA教程:NewPresentation属性 下页:PowerPoint VBA教程:NoLineBreakAfter属性

PowerPoint VBA教程:Nodes属性

PowerPoint VBA教程:NoLineBreakAfter属性 PowerPoint VBA教程:NoLineBreakBefore属性
PowerPoint VBA教程:NormalizedHeight属性 PowerPoint VBA教程:NotesMaster属性
PowerPoint VBA教程:NotesOrientation属性 PowerPoint VBA教程:NotesPage属性
PowerPoint VBA教程:Number属性 PowerPoint VBA教程:NumberOfCopies属性
PowerPoint VBA教程:Object属性 PowerPoint VBA教程:ObjectVerbs属性
PowerPoint VBA教程:Obscured属性 PowerPoint VBA教程:OffsetX属性
PowerPoint VBA教程:OffsetY属性 PowerPoint VBA教程:OLEFormat属性
PowerPoint VBA教程:OperatingSystem属性 PowerPoint VBA教程:Options属性
PowerPoint VBA教程:OrganizeInFolder属性 PowerPoint VBA教程:Orientation属性
PowerPoint VBA教程:OutputType属性 PowerPoint VBA教程:OverPrint Property
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号