Diagram 对象 - Microsoft Excel Visual Basic 2002 参考

返回介绍

Diagram 对象

发布于 2019-08-07 字数 1693 浏览 880 评论 0

多个对象
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 方法可查看可用的图表类型的列表。

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!