全部显示

CloneNode 方法

复制图表节点。返回一个 DiagramNode 对象，该对象代表复制的节点。

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

copyChildren   Boolean 类型，必需。如果为 True，则还将复制图表子节点。

pTargetNode   DiagramNode 对象，可选。该表达式返回一个 DiagramNode 对象，该对象代表新节点放置处的节点。

pos   MsoRelativeNodePosition 类型，可选。如果指定了 pTargetNode，则表示相对于 pTargetNode 来添加节点的位置。

示例

下例创建一个图表并复制最新创建的节点。

Sub CloneANode()

    Dim nodRoot As DiagramNode
    Dim shpDiagram As Shape
    Dim nodFourthNode As DiagramNode
    Dim nodDuplicate As DiagramNode
    Dim intCount As Integer

    Set shpDiagram = ActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set nodRoot = shpDiagram.DiagramNode.Children.AddNode

    ' Add subordinate nodes to the root node
    For intCount = 1 To 4
        nodRoot.Children.AddNode
    Next

    Set nodFourthNode = nodRoot.Children.Item(4)

    'Clone the most recently created child node
    Set nodDuplicate = nodRoot.Children.Item(1).CloneNode(copyChildren:=True, _
        pTargetNode:=nodFourthNode, pos:=msoAfterNode)

End Sub