PowerPoint VBA教程:NextNode方法

返回DiagramNode对象,该对象代表图示节点集合中的下一个图示节点。

expression.NextNode

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例创建一个组织结构图,并为中间的图示节点添加子节点。


Sub AddChildrenToMiddle()
    Dim dgnNode As DiagramNode
    Dim dgnNext As DiagramNode
    Dim shpOrgChart As Shape
    Dim intNodes As Integer
    'Add organization chart and first child node
    Set shpOrgChart = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpOrgChart.DiagramNode.Children.AddNode
    'Add three additional nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Set dgnNode variable to the middle node
    Set dgnNext = dgnNode.Children.Item(1).NextNode
    'Add three child nodes to middle node
    For intNodes = 1 To 3
        dgnNext.Children.AddNode
    Next intNodes
End Sub

上页:PowerPoint VBA教程:Next方法 下页:PowerPoint VBA教程:OfflineConflict Method

PowerPoint VBA教程:NextNode方法

PowerPoint VBA教程:OfflineConflict Method PowerPoint VBA教程:OneColorGradient方法
PowerPoint VBA教程:Open方法 PowerPoint VBA教程:Paragraphs方法
PowerPoint VBA教程:Paste方法 PowerPoint VBA教程:PasteSpecial方法
PowerPoint VBA教程:Patterned方法 PowerPoint VBA教程:PickUp方法
PowerPoint VBA教程:Picture方法 PowerPoint VBA教程:Play方法
PowerPoint VBA教程:PointsToScreenPixelsX方法 PowerPoint VBA教程:PointsToScreenPixelsY方法
PowerPoint VBA教程:PresetDrop方法 PowerPoint VBA教程:PresetGradient方法
PowerPoint VBA教程:PresetTextured方法 PowerPoint VBA教程:Previous方法
PowerPoint VBA教程:PrevNode方法 PowerPoint VBA教程:PrintOut方法
PowerPoint VBA教程:Publish方法 PowerPoint VBA教程:Quit方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号