Root 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

Root 属性

发布于 2019-08-07 字数 885 浏览 794 评论 0

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

expression.Root

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

示例

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

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

上一篇:RollZoom 属性

下一篇:RotatedChars 属性

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!