object that represents the first child node of a parent node.
expression.FirstChild
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