VBA Charts 创建图表型工作表

本节介绍通过Charts对象创建图表型工作表，会新建一个单独的工作表。

创建工作表Sheet5，准备数据如下

代码如下

Sub sub1()

  Dim chart1 As Chart

  '添加一个图表型工作表
  Set chart1 = Charts.Add

  '设置工作表名称
  'chart1.Name = "chart22"

  '设置数据源
  chart1.SetSourceData Source:=Worksheets("sheet5").Range("A1:C13")

  chart1.ChartType = xlColumnClustered '柱状图
  chart1.HasTitle = True
  chart1.ChartTitle.Caption = "学生成绩图表"

End Sub

chart1.Name 指定图表型工作表的名称。

注：多次创建会报错，因为工作表的名称不能重复，需修改名称，或者删除此句代码。

运行效果如下