TransferChildren Method

Microsoft PowerPoint Visual Basic

TransferChildren Method

       

Moves the child nodes of one diagram node to another diagram node.

expression.TransferChildren(ReceivingNode)

expression   Required. An expression that returns one of the objects in the Applies To list.

ReceivingNode  Required DiagramNode object. The target (receiving) diagram node.

Example

The following example transfers the child nodes from the first node to the third node of a newly-created diagram.

Sub TransferChildNodes()

    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer

    'Adds org chart and root node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    'Adds three child nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes

    'Adds three child nodes to first child node
    For intNodes = 1 To 3
        dgnNode.Children.Item(1).Children.AddNode
    Next intNodes

    ' Transfers children of the first node to the third node
    dgnNode.Children.Item(1).TransferChildren _
        ReceivingNode:=dgnNode.Children.Item(3)

End Sub