【分享成果，随喜正能量】训练自己的逻辑思维。有条理，有层次，尽量抓住重点，简单明了的表达。没想法的时候不说，有想法的时候慢说；没决定的时候少说，有决定的时候短说。少说话。是指少说废话，把话说在关键处，让对方感受到你的心意。

《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第30讲：如何利用VBA自动生成图表

第三十讲 使用VBA代码自动生成图表（二）

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

1 VBA代码自动生成图表的示例代码

为此，我写了下面的35行代码：

Sub mynz_30() '第29,30讲 使用VBA代码自动生成图表

【代码见教程】

End Sub

代码窗口的部分截图：

2 自动生成图标的代码解读及运行效果

代码解析：mynz_30过程在工作表中自动生成图表，图表类型为簇状柱形图。

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

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

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

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

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

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

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

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

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

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

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

运行效果：数据窗口如下

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

今日内容回向：

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

本讲内容参考程序文件：VBA代码解决方案修订（1-48）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】学会用眼神、肢体语言。适当表达你的情绪和关心，懂你的人自然懂；无关紧要时，不想说就别逼自己说。一定要说时，想清楚你的观点，你想做什么，说话对象是谁，场合是否适宜说。