CloneNode Method

Clones a diagram node.

expression.CloneNode(CopyChildren, TargetNode, Pos)

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

CopyChildren Required Boolean. True to include the diagram node's children.

TargetNode Required DiagramNode object. An expression that returns a DiagramNode that will be the source for the cloned diagram node.

MsoRelativeNodePosition

Example

The following example creates a diagram and clones the newest-created node.

Sub CloneANode()

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

    'Adds cycle diagram and first child node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramCycle, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    Set TdgnNode = new DiagramNode

    'Adds three additional nodes to diagram
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes

    'Automatically formats the diagram
    dgnNode.Diagram.AutoFormat = msoTrue

    'Clones the first child node without cloning associated child nodes
    dgnNode.CloneNode CopyChildren:=False, TdgnNode

End Sub

Applies to | DiagramNode Object