SwapNode 方法

交换源图示节点与目标图示节点。如果没有指定其他方式，所有图示子节点将随相应的根节点一起移动。

expression  必选。该表达式返回“应用于”列表中的对象之一。

TargetNode  必选。DiagramNode 对象。目标图示节点。

SwapChildren  可选。Boolean 类型。如果所有图示子节点随相应的目标或源图示节点一起移动，则值为 True（默认值）。值为 False 时，则只交换目标图示节点与源图示节点，并使它们继承相互的图示子节点。

示例

以下示例交换新建图示的第一个和第三个节点。

Sub SwapTwoNodes()

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

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

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

    'Swaps the first and the third nodes
    dgnNode.Children.Item(1).SwapNode _
        TargetNode:=dgnNode.Children.Item(3)

End Sub