Excel VBA教程: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方法可查看可用的图表类型的列表。

上页:Excel VBA教程:DefaultWebOptions对象 下页:Excel VBA教程:DiagramNode对象

Excel VBA教程:Diagram对象

Excel VBA教程:DiagramNode对象 Excel VBA教程:DiagramNodeChildren集合
Excel VBA教程:DiagramNodes集合 Excel VBA教程:Dialog对象
Excel VBA教程:Dialogs集合对象 Excel VBA教程:DisplayUnitLabel对象
Excel VBA教程:DownBars对象 Excel VBA教程:DropLines对象
Excel VBA教程:Error对象 Excel VBA教程:ErrorBars对象
Excel VBA教程:ErrorCheckingOptions对象 Excel VBA教程:Errors对象
Excel VBA教程:FillFormat对象 Excel VBA教程:Filter对象
Excel VBA教程:Filters集合对象 Excel VBA教程:Floor对象
Excel VBA教程:Font对象 Excel VBA教程:FormatCondition对象
Excel VBA教程:FormatConditions集合对象 Excel VBA教程:FreeformBuilder对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号