FirstChild Property

expression.FirstChild

expression    Required. An expression that returns a DiagramNodeChildren object.

Remarks

Use the LastChild property to access the last child node. Use the Root property to access the parent node in a diagram.

Example

This example adds an organization chart diagram to the current document, 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 = ThisDocument.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