expression.TransferChildren(pReceivingNode)
expression Required. An expression that returns one of the objects in the Applies To list.
pReceivingNode Required DiagramNode object. The diagram node receiving the child nodes being transferred from the node signified in expression .
Example
The following example transfers the child nodes of a newly-created diagram from one node to another.
Sub TransferChildNodes()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intCount As Integer
'Add organizational chart to current document
Set shpDiagram = ActiveSheet.Shapes.AddDiagram _
(Type:=msoDiagramOrgChart, Left:=10, _
Top:=15, Width:=400, Height:=475)
'Add first node to organizational chart
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
'Add three child nodes to first node
For intCount = 1 To 3
dgnNode.Children.AddNode
Next intCount
'Add three child nodes to the first child node
'of the first node
For intCount = 1 To 3
dgnNode.Children.Item(1).Children.AddNode
Next intCount
'Moves the child nodes of the first child node
'so they become child nodes of the third child node
dgnNode.Children.Item(1).TransferChildren _
pReceivingNode:=dgnNode.Children.Item(3)
End Sub