DiagramNode Property

Microsoft Excel Visual Basic

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