Excel VBA教程:Root属性

返回根图表节点所属的根 DiagramNode对象。

expression.Root

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

Excel VBA教程:Root属性·示例

下例创建一个组织结构图,并向根图表节点中添加子节点。


Sub AddChildNodesToRoot()
    Dim nodDiagram As DiagramNode
    Dim shDiagram As Shape
    Dim intCount As Integer
    Set shDiagram = ActiveSheet.Shapes.AddDiagram _
        (Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    ' Add the first node to the diagram.
    shDiagram.DiagramNode.Children.AddNode
    ' Establish the first node as the root.
    Set nodDiagram = shDiagram.DiagramNode.Root
    ' Add three modes to the diagram.
    For intCount = 1 To 3
        nodDiagram.Children.AddNode
    Next intCount
End Sub

上页:Excel VBA教程:RollZoom属性 下页:Excel VBA教程:RotatedChars属性

Excel VBA教程:Root属性

Excel VBA教程:RotatedChars属性 Excel VBA教程:Rotation属性
Excel VBA教程:RotationX属性 Excel VBA教程:RotationY属性
Excel VBA教程:RoundedCorners属性 Excel VBA教程:Routed属性
Excel VBA教程:RoutingSlip属性 Excel VBA教程:Row属性
Excel VBA教程:RowColSettings属性 Excel VBA教程:RowFields属性
Excel VBA教程:RowGrand属性 Excel VBA教程:RowHeight属性
Excel VBA教程:RowItems属性 Excel VBA教程:RowNumbers属性
Excel VBA教程:RowRange属性 Excel VBA教程:Rows属性
Excel VBA教程:RTD属性 Excel VBA教程:Saved属性
Excel VBA教程:SaveData属性 Excel VBA教程:SaveHiddenData属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号