Root 属性

返回 DiagramNode 对象，该对象代表图示源节点所属的图示根节点。 

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

示例

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

Sub AddChildNodesToRoot()

    Dim dgnNode As DiagramNode
    Dim shpOrgChart As Shape
    Dim intNodes As Integer
       
    'Adds organization chart and first node
    Set shpOrgChart = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    shpOrgChart.DiagramNode.Children.AddNode
   
    Set dgnNode = shpOrgChart.DiagramNode.Root
     
    'Adds three child nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes

End Sub