FirstChild 属性

返回 DiagramNode 对象，该对象代表图示节点集合中的第一个图示节点。

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

示例

以下示例新建一个图示并且标识第一个图示子节点。

Sub FirstChildNodeHello()

    Dim dgnNode As DiagramNode
    Dim dgnFirst As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
           
    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set dg nNode = shpDiagram.DiagramNode.Children.AddNode
   
    For intNodes = 1 To 3
        dg nNode.Children.AddNode
    Next intNodes
   
    Set dgnFirst = dg nNode.Children.FirstChild
    dgnFirst.Shape.TextFrame.TextRange.Text = "Here I am!"

End Sub