NextNode Method
NextNode Method
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Returns a DiagramNode object that represents the next diagram node in a collection of diagram nodes.
expression.NextNode
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example creates an organization chart, and adds child nodes to the middle diagram node.
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