FirstChild Property

Returns a DiagramNode object that represents the first child node of a parent node.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds an organization chart diagram to the current worksheet, adds three nodes, and assigns the first and last child nodes to variables.

Sub FirstChild()

    Dim shpDiagram As Shape
    Dim dgnRoot As DiagramNode
    Dim dgnFirstChild As DiagramNode
    Dim dgnLastChild As DiagramNode
    Dim intCount As Integer

    'Add organizational chart diagram to the current document
    Set shpDiagram = ActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)

    'Add the first node to the diagram
    Set dgnRoot = shpDiagram.DiagramNode.Children.AddNode

    'Add three child nodes
    For intCount = 1 To 3
        dgnRoot.Children.AddNode
    Next intCount

    'Assign the first and last child nodes to variables
    Set dgnFirstChild = dgnRoot.Children.FirstChild
    Set dgnLastChild = dgnRoot.Children.LastChild

End Sub