VBA代码之三十五：使用VBA代码自动生成图表（二）

大家好，今日继续上一讲的内容，也是VBA代码方案的第三十五讲，继续讲使用VBA代码自动生成图表的下半部分。在上一讲中我们讲了基本的方法，今日就利用这些方法来完成我们的任务，为此，我写了下面的35行代码：

Sub MyChartAdd()

2 Dim myRange As Range

3 Dim myChart As ChartObject

4 Dim MR As Integer

5 Sheets('Sheet1').Select

6 MR = Range('A1048576').End(xlUp).Row

7 Set myRange = Sheets('Sheet1').Range('A' & 1 & ':F' & MR)

8 Set myChart = Sheets('Sheet1').ChartObjects.Add(120, 40, 400, 250)

9 myChart.Chart.ChartType = xlColumnClustered

10 myChart.Chart.SetSourceData Source:=myRange, PlotBy:=xlColumns

11 myChart.Chart.ApplyDataLabels ShowValue:=True

12 myChart.Chart.HasTitle = True

13 myChart.Chart.ChartTitle.Text = '我的图表'

14 With myChart.Chart.ChartTitle.Font

15 .Size = 20

16 .ColorIndex = 3

17 .Name = '华文新魏'

18 End With

19 With myChart.Chart.ChartArea.Interior

20 .ColorIndex = 8

21 .PatternColorIndex = 1

22 .Pattern = xlSolid

23 End With

24 With myChart.Chart.PlotArea.Interior

25 .ColorIndex = 35

26 .PatternColorIndex = 1

27 .Pattern = xlSolid

28 End With

29 With myChart.Chart.SeriesCollection(2).DataLabels.Font

30 .Size = 10

31 .ColorIndex = 5

32 End With

33 Set myRange = Nothing

34 Set myChart = Nothing

35 End Sub

代码解析：

MyChartAdd过程在工作表中自动生成图表，图表类型为簇状柱形图。

a) 第6行代码取得数据范围的最关键的数据.

b) 第7行代码指定图表的数据源。

c) 第8行代码使用Add方法创建一个新图表，

d) 第9行代码指定新创建图表的图表类型，应用于Chart对象的ChartType属性返回或设置图表的类型，可以为XlChartType常量之一，本例中设置为xlColumnClustered即图表类型为簇状柱形图。

e) 第10行代码指定图表的数据源和绘图方式，

f) 第11行代码使用ApplyDataLabels方法使图表显示数据标签和数据点的值，

g) 第12到13行代码设置新创建的图表有可见的标题并设置图表标题的文字。应用于Chart对象的HasTitle属性，如果坐标轴或图表有可见标题，则该值为True，而ChartTitle属性返回一个ChartTitle对象，代表指定图表的标题。

h) 第14行到第18行代码设置图表标题文字的格式。

i) 第19行到第23行代码设置图表区的颜色。

j) 第24行到第28行代码设置绘图区的颜色。

k) 第31行代码删除图表上第一个数据系列中的数据标签。

l) 第29行到第32行代码设置图表上第二个数据系列中的数据标签的字体格式。

代码窗口：

数据窗口：

运行ChartAdd过程，在工作表中创建簇状柱形图，如图所示：

今日内容回向：

1 对上面的35行代码是否理解呢？