工作中我们经常会有一些数据报表要做，不仅数据量繁杂，还容易混乱，纯文字做出来的东西容易让领导看得累，还容易出错，这时就不得不考虑一下用图表来做，不仅数据之间情况一目了然，每种数据还形成了鲜明的对比，让人一看会觉得焕然一新，数据全在心中，再给他的领导汇报工作就会得心应手，从容不迫。
利用数据做成不同样式的图表文件，手动自动均可选择，如果说不想手动，想通过代码来让它实现，该怎么做呢？
Sub 创建图表()
Sheet2.Shapes.AddChart 112, 300, 1, 300, 250
End Sub
先呈上代码如上，小编今天给各位剖析代码的奥秘：
主要的代码就是——Shapes.AddChart
含义：在活动报表上的指定位置创建图表。返回一个Shape 对象，该对象代表图表。
语法表达式：
AddChart (Style、Type、Left、Top、Width、Height、NewLayout )
这么多英文看起来还有几个是认识的，都是有自己的含义，下面看参数：
如上图，就是表达式中各个英文所代表的意思了
名称与表达式中的是一样，不必多说
必须/可选的意思是：可有可无，上面的代码也可以是Sheet2.Shapes.AddChart
说明则是详细地介绍了它所掌管的功能
代码拆分先不管后面一串数字是干嘛的，看这行代码
Sheet2.Shapes.AddChart
sheet2——工作表名
Shapes.AddChart——在活动报表上的指定位置创建图表。 返回一 个 Shape 对象，该对象代表图表
直接运行可以看一下结果：
请点击输入视频描述
可以看到，一行代码完成了图表的创建，但是图表的位置、大小、样式是固定的
代码拓展拓展的意思就是：让图表按照我们的设置完成输出
拆分介绍的是把参数部分的“可选”变成不选
拓展介绍的是把参数部分的“可选”变为必选
这就是两者的本质区别
表达式：AddChart (Style、Type、Left、Top、Width、Height、NewLayout )
英文看不懂，把它转换成中文来看：
创建图表 (图表样式、左侧距离、顶部距离、宽度、高度 )
-Style 参数稍多不做演示，可直接省略
-NewLayout不用于方法，省略
这样一看是不是就更好理解了？
Shapes.AddChart 112, 300, 1, 300, 250（代码就是这样，下面逐一解释）
Shapes.AddChart=创建图表
112——图表样式（有很多，见后面附图，112为值）
300——距离表格左侧的距离（以磅为单位）
1——距离表格顶部的距离（以磅为单位）
300——图表的宽度（以磅为单位）
250——图表的高度（以磅为单位）
看下效果，和前面对比有什么不同：
请点击输入视频描述
明显的可以看到，加上后面的参数后，图表的位置变化了，没错，后面的参数控制了创建的图表在表格中的位置，你想让它在什么位置显示，只需要更改相应的参数即可
视频开始前，我把112改成了58，其实这是图表样式，这里介绍一下：
我们常见的有条形图、折线图、柱状图、饼图等等，Excel里面还给我们准备了70+种样式，见下图：
英文难记，我们只需要把第一个数字的位置改变即可，至于改变成什么样子，看大家的喜好，只要是表中的值有的，他都会创建成功，记得先选表格区域，其次在运行代码。
看过后是不是觉得很简单、神奇呢？欢迎大家交流讨论，同时也希望大家多多转发点赞，小编会向大家分享更多好玩的代码
最新评论