VBA ChartType设置图表类型

Chart.ChartType属性设置图表类型，常见类型如下

创建工作表Sheet8

示例数据如下。

示例代码

Sub sub1()

  Dim chartObject1 As ChartObject
  Dim chart1 As Chart
  Dim r1 As Range

  Set r1 = Worksheets("Sheet8").Range("F2:L13")
  Set chartObject1 = Worksheets("Sheet8").ChartObjects.Add(r1.Left, r1.Top, r1.Width, r1.Height)
  Set chart1 = chartObject1.Chart

  chart1.SetSourceData Source:=Worksheets("Sheet8").Range("A1:B13")

  '设置图表类型为柱状图
  chart1.ChartType = xlColumnClustered '柱状图

  'chart1.ChartType = xlLine '折线图
  'chart1.ChartType = xlLineMarkers '折线图，会突出顶点
  'chart1.ChartType = xlPie '饼状图
  'chart1.ChartType = xlBarClustered '条形图
 
  chart1.HasTitle = True

  chart1.ChartTitle.Caption = "学生成绩图表"

End Sub

1）柱状图

代码

chart1.ChartType = xlColumnClustered '柱状图

柱状图效果如下：

2）折线图

代码

chart1.ChartType = xlLine '折线图

运行结果

3）饼状图

代码

chart1.ChartType = xlPie '饼状图

运行结果

4）条形图

代码

chart1.ChartType = xlBarClustered '条形图

运行结果