TransferChildren Method

Transfers the child nodes of a source diagram node to a receiving diagram node.

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