返回 DiagramNode 对象,该对象代表图示节点集合中的下一个图示节点。
expression.NextNode
expression 必选。该表达式返回“应用于”列表中的对象之一。
以下示例创建一个组织结构图,并为中间的图示节点添加子节点。
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