Excel VBA教程:CloneNode方法

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

expression.CloneNode(copyChildren, pTargetNode, pos)

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

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

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

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

MsoRelativeNodePosition 可为以下 MsoRelativeNodePosition 常量之一。
msoAfterLastSibling
msoAfterNode 默认值
msoBeforeFirstSibling
msoBeforeNode

Excel VBA教程:CloneNode方法·示例

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


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

上页:Excel VBA教程:ClearOutline方法 下页:Excel VBA教程:Close方法

Excel VBA教程:CloneNode方法

Excel VBA教程:Close方法 Excel VBA教程:ColumnDifferences方法
Excel VBA教程:ColumnGroups方法 Excel VBA教程:ConnectData方法
Excel VBA教程:Consolidate方法 Excel VBA教程:Convert方法
Excel VBA教程:ConvertFormula方法 Excel VBA教程:ConvertToShape方法
Excel VBA教程:Copy方法 Excel VBA教程:CopyFromRecordset方法
Excel VBA教程:CopyPicture方法 Excel VBA教程:CreateCubeFile方法
Excel VBA教程:CreateNames方法 Excel VBA教程:CreateNewDocument方法
Excel VBA教程:CreatePivotTable方法 Excel VBA教程:获取有关 Macintosh 关键字的帮助
Excel VBA教程:CreateSummary方法 Excel VBA教程:CustomDrop方法
Excel VBA教程:CustomLength方法 Excel VBA教程:Cut方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号