object that represents a node in a diagram.
expression.DiagramNode
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example adds a pyramid chart to the active worksheet and then adds four diagram nodes.
Sub CreatePyramidDiagram()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intCount As Integer
'Add pyramid diagram to current document
Set shpDiagram = ActiveSheet.Shapes.AddDiagram( _
Type:=msoDiagramPyramid, Left:=10, _
Top:=15, Width:=400, Height:=475)
'Add first diagram node child
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
'Add three more diagram child nodes.
For intCount = 1 To 3
dgnNode.AddNode
Next intCount
End Sub