Excel VBA编程 典型实例——创建面积图表

Excel VBA编程典型实例——创建面积图表
面积图表通常可以使用显示所绘制的值的总和，来表示部分与整体的关系。

本例主要介绍在【代码】编辑窗口中，输入相应的VBA代码来完成面积图的创建过程。

1．练习要点
●插入模块
●使用VBA代码创建图表
2．操作步骤：
（1）新建一个空白工作簿，在Sheet1工作表中，创建如图17-17所示的“实验报告”表格。

创建表格
图17-17 创建表格
（2）选择【开发工具】选项卡，单击【代码】组中的VISUAL Basic按钮，即可进入VBE窗口，如图17-18所示。

单击
图17-18 进入VBE窗口
（3）右击【工程管理器】窗口的空白处，执行【插入】|【模块】命令，即可插入模块1，如图17-19所示。

执行
添加模块
图17-19 插入模块
（4）在【代码】编辑窗口中，输入如图17-20所示的代码。

输入
图17-20 输入代码
其中，输入的创建图表的代码如下：
Sub creatChart()
'定义变量
Dim x As Long
Dim y As Long
Dim n As Long
Dim startRow As Long
Dim maxRow As Long
Dim shapeWidth As Double
Dim shapeHeight As Double
Dim rowIndex As Long
Dim colIndex As Long
'获得总页数
countpages = ExecuteExcel4Macro("Get.Document(50)")
For n = 1 To countpages
startRow = 45 * (n - 1) + 11
maxRow = startRow + 11
'创建图表
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlArea
'应用图表样式
ActiveChart.ChartStyle = 40
ActiveChart.ClearToMatchStyle
'修改图表属性
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B" & startRow & ":C" & maxRow & ",H" & startRow & ":I" & maxRow), _
PlotBy:=xlColumns
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "体积流量曲线"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "注入孔隙体积倍数"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "渗透率比值"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
'修改图表位置
shapeWidth = 0
shapeHeight = 300
rowIndex = 3
For colIndex = 1 To 9
shapeWidth = shapeWidth + ActiveSheet.Cells(rowIndex, colIndex).Width Next colIndex
ActiveSheet.Shapes(n).Left = ActiveSheet.Cells(45 * (n - 1) + 24, 1).Left
ActiveSheet.Shapes(n).Top = ActiveSheet.Cells(45 * (n - 1) + 24, 1).Top
ActiveSheet.Shapes(n).Width = shapeWidth
ActiveSheet.Shapes(n).Height = 300
'设置字体
ActiveSheet.ChartObjects(n).Activate
ActiveChart.ChartArea.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "宋体"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.ChartTitle.Select
Selection.Font.Size = 18
Next n
Range("A1").Select
End Sub
（5）返回工作表中，单击【代码】组中的【宏】按钮。

然后，在弹出的对话框中，选择要运行的宏名，并单击【执行】按钮，如图17-21所示。

单击
单击
图17-21 运行宏
（6）运行完毕宏之后，将发现在表格的下方自动生成了一个面积类型的图表，如图17-22所示。

生成图表
图17-22 生成图表
（7）单击Office按钮，执行【打印】|【打印预览】命令，即可查看该图表的效果。