Excel VBA编程使用VBA创建图表
VBA也是一种宏语言，它可以使用手动方法将较为复杂的宏编写成VBA代码，从而完成某种功能的实现。

本节介绍如何使用VBA代码来创建图表。

在VBE窗口中，新建一个模块。

然后，打开该模块代码窗口，输入如图17-3所示的创建图表的代码。

输入
图17-3 输入创建图表的代码
其中，输入的创建图表的代码如下：
Sub 图表()
' 选择A2至B7单元格区域
Range("A2:B7").Select
' 激活工作区选择添加图表选项
ActiveSheet.Shapes.AddChart.Select
' 激活图表选择工作表1中的A2至B7单元格区域
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$2:$B$7")
选择图表类型为饼图
ActiveChart.ChartType = xlPie
End Sub
在上面的代码中，主要包含以下几点内容：
●Shapes.Range 属性
该属性返回一个ShapeRange对象，它代表Shapes集合中形状的子集，其语法为：表达式.Range(Index)
其中，表达式为一个代表Shapes对象的变量。

参数Index为必选参数，包含该区域中的各单个形状，可以是指定形状索引号的整数、指定形状名称的字符串，也可以是包含整数或字符串的数组。

●Chart.SetSourceData 方法
该方法为指定图表设置源数据区域，其语法为：表达式.SetSourceData(Source, PlotBy)
其中，表达式为一个代表Chart对象的变量。

参数Source为必选参数，为包含源数据的区域。

参数PlotBy 为可选参数，为指定数据绘制方式。

●Chart.ChartType 属性
该属性返回或设置图表类型，其语法为：表达式.ChartType。

其中，参数ChartType表示图表类型。

完成代码的编辑之后，用户可以单击VBE窗口中的【运行宏】按钮，即可在工作表中生成一个饼图，如图17-4所示。

生成图表图17-4 生成饼图。