复制图表节点。返回一个 DiagramNode 对象,该对象代表复制的节点。
expression.CloneNode(copyChildren, pTargetNode, pos)
expression 必需。该表达式返回“应用于”列表中的对象之一。
copyChildren Boolean 类型,必需。如果为 True,则还将复制图表子节点。
pTargetNode DiagramNode 对象,可选。该表达式返回一个 DiagramNode 对象,该对象代表新节点放置处的节点。
pos MsoRelativeNodePosition 类型,可选。如果指定了 pTargetNode,则表示相对于 pTargetNode 来添加节点的位置。
MsoRelativeNodePosition 可为以下 MsoRelativeNodePosition 常量之一。 |
msoAfterLastSibling |
msoAfterNode 默认值 |
msoBeforeFirstSibling |
msoBeforeNode |
下例创建一个图表并复制最新创建的节点。
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