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 生成饼图