Excel VBA教程:TransferChildren方法

将源图表节点的子节点传送到接收图表节点。

expression.TransferChildren(pReceivingNode)

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

pReceivingNode   DiagramNode对象类型,必需。从 expression 表示的节点中传送接收子节点的图表节点。

Excel VBA教程:TransferChildren方法·示例

下例逐一传送新建图表的子节点。


Sub TransferChildNodes()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer
    'Add organizational chart to current document
    Set shpDiagram = ActiveSheet.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 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
    'Moves the child nodes of the first child node
    'so they become child nodes of the third child node
    dgnNode.Children.Item(1).TransferChildren _
        pReceivingNode:=dgnNode.Children.Item(3)
End Sub

上页:Excel VBA教程:ToggleVerticalText方法 下页:Excel VBA教程:Trendlines方法

Excel VBA教程:TransferChildren方法

Excel VBA教程:Trendlines方法 Excel VBA教程:TwoColorGradient方法
Excel VBA教程:Undo方法 Excel VBA教程:Ungroup方法
Excel VBA教程:Union方法 Excel VBA教程:UnMerge方法
Excel VBA教程:Unprotect方法 Excel VBA教程:UnprotectSharing方法
Excel VBA教程:Update方法 Excel VBA教程:UpdateFromFile方法
Excel VBA教程:UpdateLink方法 Excel VBA教程:UpdateNotify方法
Excel VBA教程:UseDefaultFolderSuffix方法 Excel VBA教程:UserPicture方法
Excel VBA教程:UserTextured方法 Excel VBA教程:Verb方法
Excel VBA教程:Volatile方法 Excel VBA教程:Wait方法
Excel VBA教程:WebPagePreview方法 Excel VBA教程:XYGroups方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号