XMLNode.FirstChild (Word)

Retorna um objeto DiagramNode que representa o primeiro nó filho de um nó pai. Somente leitura.

Use a propriedade LastChild para acessar o último nó filho. Use a propriedade de raiz para acessar o nó pai em um diagrama.

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 = ActiveDocument.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