《CloneNode方法.docx》由会员分享,可在线阅读,更多相关《CloneNode方法.docx(2页珍藏版)》请在三一文库上搜索。
1、CloneNode 方法复制图表节点。返回一个 DiagramNode对象,该对象代表复制的节点。expression.CloneNode(copyChildren, pTargetNode, pos)expression 必需。该表达式返回“应用于”列表中的对象之一。copyChildren Boolean 类型,必需。如果为 True ,则还将复制图表子节点。pTargetNode DiagramNode 对象,可选。该表达式返回一个 DiagramNode对象, 该对象代表新节点放置处的节点。pos MsoRelativeNodePosition 类型,可选。如果指定了 pTargetN
2、ode ,贝表 示相对于pTargetNode来添加节点的位置。MsoRelativeNodePosition可为以下 MsoRelativeNodePosition常量之一。msoAfterLastSiblingmsoAfterNode 默认值msoBeforeFirstSiblingmsoBeforeNodeExcel VBA 教程:CloneNode方法示例下例创建一个图表并复制最新创建的节点。Sub CloneANode()Dim nodRoot As DiagramNodeDim shpDiagram As ShapeDim nodFourthNode As DiagramNodeD
3、im nodDuplicate As DiagramNodeDim intCount As IntegerSet 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 nodeFor intCount = 1 To 4nodRoot.Children.AddNodeNextSet nodFourthNode = nodRoot.Children.Item(4)Clone the most recently created child nodeSet nodDuplicate =nodRoot.Children.Item(1).CloneNode(copyChildren:=True, _ pTargetNode:=nodFourthNode, pos:=msoAfterNode) End Sub