DiagramNode 属性

       

返回一个 DiagramNode 对象,该对象代表图表中的一个节点。

expression.DiagramNode

expression   必需。该表达式返回“应用于”列表中的对象之一。

示例

本示例向活动工作表中添加一个棱锥图,然后添加四个图表节点。

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