Diagram 对象

多个对象 Diagram DiagramNodes

代表一个图表。

Diagram 对象用法

可用 Shape 对象的 Diagram 属性或 ShapeRange 集合返回一个 Diagram 对象。下例向活动工作表添加一个射线式图表。

Sub NewDiagram()

    Dim wksActiveSheet As Worksheet
    Dim shDiagram As Shape

    Set wksActiveSheet = ActiveSheet
    Set shDiagram = wksActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramRadial, _
        Left:=20, Top:=40, _
        Width:=400, Height:=200)

    ' Fill the diagram to make it visible to the user
    shDiagram.Fill.Visible = msoTrue

End Sub

也可使用 Convert 方法将当前图表转换成其他图表。注意，如果当前图表是组织结构图 (msoDiagramOrgChart)，就会出现一个运行错误。本示例中将一个射线式图表转换成目标图表。

Sub NewDiagram()

    Dim wksActiveSheet As Worksheet
    Dim shDiagram As Shape

    Set wksActiveSheet = ActiveSheet
    Set shDiagram = wksActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramRadial, _
        Left:=20, Top:=40, _
        Width:=400, Height:=200)

    ' Fill the diagram to make it visible to the user
    shDiagram.Fill.Visible = msoTrue

    ' Convert the diagram.
    shDiagram.Diagram.Convert Type:=msoDiagramTarget

End Sub

使用 Diagram 对象时，有几种可供选择的图表类型。引用 AddDiagram 方法可查看可用的图表类型的列表。