SwapNode 方法

用源图表顶点交换目标图表顶点。子图表顶点随着相应的根顶点移动。

expression   必需。该表达式返回一个 DiagramNode 对象。

TargetNode  DiagramNode 对象，必需。要交换的顶点。

示例

下列示例在新创建的图表中交换两个顶点。

Sub SwapNode()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Object
    Dim intCount As Integer

    'Add organizational chart to current document
    Set shpDiagram = ThisDocument.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 the 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

    'Swap the first and third child nodes that were just created
    dgnNode.Children.Item(1).SwapNode _
        TargetNode:=dgnNode.Children.Item(3)
End Sub