学以致用——一键生成所有Excel图表类型 （Generate all Excel graphs with one click）

最新推荐文章于 2025-07-30 11:37:08 发布
最新推荐文章于 2025-07-30 11:37:08 发布
阅读量3.9k 收藏 23
点赞数 5
CC 4.0 BY-SA版权
分类专栏： Excel技巧及VBA编程（Excel_VBA） 数据分析（Data Analysis） 自动化（RPA，Robotic Process Automa
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/hpdlzu80100/article/details/80888782

去年开发了一个小程序，可以一键生成所有类型的Excel图表。有网友留言求源码，今天决定分享出来。

效果：


代码：

Public Sub generateAllExcelCharts()
    Application.ScreenUpdating = False
'定义用于循环的整型变量
Dim ChartTypeArray() As Variant
Dim ChartCount As Integer
Dim ChartTypeName As String

    ChartTypeArray = Array(1, 4, 5, 15, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, _
                            67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, _
                            102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, -4169, -4151, -4120, -4102, -4101, -4100, -4098)

    ChartCount = 1
    Do While (ChartCount <= (UBound(ChartTypeArray) + 1))
        '添加图表
        Charts.Add
        '定义图表类型
        ActiveChart.ChartType = ChartTypeArray(ChartCount - 1)
        '图表数据源
        ActiveChart.SetSourceData Source:=Sheets("AllCharts").Range("B6:AK11"), PlotBy:=xlRows
        '设置图表添加的位置
        ActiveChart.Location Where:=xlLocationAsObject, Name:="AllCharts"
        With ActiveChart
            '使图表带有“标题”
            .HasTitle = True
            '设置图表“标题”
            Select Case .ChartType '根据图表类型代码，获取其对应的中文名称
                Case 1
                    ChartTypeName = "面积图"
                Case 4
                    ChartTypeName = "折线图"
                Case 5
                    ChartTypeName = "饼图"
                Case 15
                    ChartTypeName = "气泡图"
                Case 51
                    ChartTypeName = "簇状柱形图"
                Case 52
                    ChartTypeName = "堆积柱形图"
                Case 53
                    ChartTypeName = "百分比堆积柱形图"
                Case 54
                    ChartTypeName = "三维簇状柱形图"
                Case 55
                    ChartTypeName = "三维堆积柱形图"
                Case 56
                    ChartTypeName = "三维百分比堆积柱形图"
                Case 57
                    ChartTypeName = "簇状条形图"
                Case 58
                    ChartTypeName = "堆积条形图"
                Case 59
                    ChartTypeName = "百分比堆积条形图"
                Case 60
                    ChartTypeName = "三维簇状条形图"
                Case 61
                    ChartTypeName = "三维堆积条形图"
                Case 62
                    ChartTypeName = "三维百分比堆积条形图"
                Case 63
                    ChartTypeName = "堆积折线图"
                Case 64
                    ChartTypeName = "百分比堆积折线图"
                Case 65
                    ChartTypeName = "数据点折线图"
                Case 66
                    ChartTypeName = "堆积数据点折线图"
                Case 67
                    ChartTypeName = "百分比堆积数据点折线图"
                Case 68
                    ChartTypeName = "复合饼图"
                Case 69
                    ChartTypeName = "分离型饼图"
                Case 70
                    ChartTypeName = "分离型三维饼图"
                Case 71
                    ChartTypeName = "复合条饼图"
                Case 72
                    ChartTypeName = "平滑线散点图"
                Case 73
                    ChartTypeName = "无数据点平滑线散点图"
                Case 74
                    ChartTypeName = "折线散点图"
                Case 75
                    ChartTypeName = "无数据点折线散点图"
                Case 76
                    ChartTypeName = "堆积面积图"
                Case 77
                    ChartTypeName = "百分比堆积面积图"
                Case 78
                    ChartTypeName = "三维堆积面积图"
                Case 79
                    ChartTypeName = "百分比堆积面积图"
                Case 80
                    ChartTypeName = "分离型圆环图"
                Case 81
                    ChartTypeName = "数据点雷达图"
                Case 82
                    ChartTypeName = "填充雷达图"
                Case 83
                    ChartTypeName = "三维曲面图"
                Case 84
                    ChartTypeName = "三维曲面图（框架图）"
                Case 85
                    ChartTypeName = "曲面图（俯视图）"
                Case 86
                    ChartTypeName = "曲面图（俯视框架图）"
                Case 87
                    ChartTypeName = "三维气泡图"
                Case 88
                    ChartTypeName = "盘高-盘低-收盘图"
                Case 89
                    ChartTypeName = "开盘-盘高-盘低-收盘图"
                Case 90
                    ChartTypeName = "成交量-盘高-盘低-收盘图"
                Case 91
                    ChartTypeName = "成交量-开盘-盘高-盘低-收盘图"
                Case 92
                    ChartTypeName = "簇状柱形圆锥图"
                Case 93
                    ChartTypeName = "堆积柱形圆锥图"
                Case 94
                    ChartTypeName = "百分比堆积柱形圆柱图"
                Case 95
                    ChartTypeName = "簇状条形圆柱图"
                Case 96
                    ChartTypeName = "堆积条形圆柱图"
                Case 97
                    ChartTypeName = "百分比堆积条形圆柱图"
                Case 98
                    ChartTypeName = "三维柱形圆柱图"
                Case 99
                    ChartTypeName = "簇状柱形圆锥图"
                Case 100
                    ChartTypeName = "堆积柱形圆锥图"
                Case 101
                    ChartTypeName = "百分比堆积柱形圆锥图"
                Case 102
                    ChartTypeName = "簇状条形圆锥图"
                Case 103
                    ChartTypeName = "堆积条形圆锥图"
                Case 104
                    ChartTypeName = "百分比堆积条形圆锥图"
                Case 105
                    ChartTypeName = "三维柱形圆锥图"
                Case 106
                    ChartTypeName = "簇状柱形棱锥图"
                Case 107
                    ChartTypeName = "堆积柱形棱锥图"
                Case 108
                    ChartTypeName = "百分比堆积柱形棱锥图"
                Case 109
                    ChartTypeName = "簇状条形棱锥图"
                Case 110
                    ChartTypeName = "堆积条形棱锥图"
                Case 111
                    ChartTypeName = "百分比堆积条形棱锥图"
                Case 112
                    ChartTypeName = "三维柱形棱锥图"
                Case -4169
                    ChartTypeName = "散点图"
                Case -4151
                    ChartTypeName = "雷达图"
                Case -4120
                    ChartTypeName = "圆环图"
                Case -4102
                    ChartTypeName = "三维饼图"
                Case -4101
                    ChartTypeName = "三维折线图"
                Case -4100
                    ChartTypeName = "三维柱形图"
                Case -4098
                    ChartTypeName = "三维面积图"
           End Select
                
            
            .ChartTitle.Characters.Text = "GDP—" & ChartTypeName & "（" & ChartTypeArray(ChartCount - 1) & "）" '设置图表标题
           
           If .FullSeriesCollection.Count = 5 Then '2011年至2015年共5个数据系列，分别命名以提高图表的可读性
             .FullSeriesCollection(1).Name = "2015年"
             .FullSeriesCollection(2).Name = "2014年"
             .FullSeriesCollection(3).Name = "2013年"
             .FullSeriesCollection(4).Name = "2012年"
             .FullSeriesCollection(5).Name = "2011年"
           End If
           
           If .FullSeriesCollection.Count = 3 Then  '气泡图仅显示3个系列的数据
             .FullSeriesCollection(1).Name = "2015年"
             .FullSeriesCollection(2).Name = "2014年"
             .FullSeriesCollection(3).Name = "2013年"
           End If
           
           End With

        With ActiveChart.Parent
            If ((ChartCount Mod 3) <> 0) Then   '每张图的高度为222磅，每输出3张图表后，下一图表左上角向下偏移222磅
                .Top = 222 * (Int(ChartCount / 3) + 1)
                    Else
                        .Top = 222 * (ChartCount / 3)
            End If
            
            If ((ChartCount Mod 3) <> 0) Then   '每张图的高度为222磅，每输出3张图表后，下一图表左上角向右偏移356磅
                .Left = 10 + ((ChartCount Mod 3) - 1) * 356
                    Else
                        .Left = 10 + 2 * 356
            End If
        End With
        Debug.Print ChartCount & ActiveChart.ChartType & "-" & ChartTypeName & "->"
        ChartCount = ChartCount + 1
    Loop
    
    Debug.Print "共生成图表" & (ChartCount - 1)
    Application.ScreenUpdating = True
End Sub

5秒生成10万行Excel！SpreadCheetah如何吊打EPPlus？代码全解析（内存杀手的逆袭）
java专栏
07-14 2112
摘要： 本文通过幽默案例与代码实战，详解如何用SpreadCheetah实现高性能Excel操作。5大核心技巧包括：快速安装、流式生成（10万行低内存）、异步处理（Web不卡顿）、样式公式美化，并警示3大陷阱（未Finish、同步阻塞、样式滥用）。配套生动代码注释与场景对比，助开发者轻松将Excel处理效率提升10倍，尤其适合大数据导出与高并发场景。（150字） 关键词： SpreadCheetah、Excel导出、流式处理、异步编程、.NET性能优化
分析图形生成器
09-08
Julia集 曼德布罗特集等分形图形简单生成器
如何使用Excel绘制图表？
公众号（猴子数据分析）
08-19 3963
  通过如何使用Excel进行数据分析，我们已经学会了从原始数据中得到分下面的分析结果：统计出每个城市的数据分析师招聘数量。     那么，问题就来了。有了数据分析结果以后，如何展示成图表呢？   我们按下面图片中标出的顺序来看下，在Excel中如何绘制图表。   第1步，选住要绘制图形的数据，也就是数据透视表里的数据。 第2步，点击”开始”选项卡下的“推荐的图表”...
5款图表生成器盘点，让可视化更轻松！
最新发布
2501_91868559的博客
07-30 1032
信息时代下，数据可视化工具成为刚需。本文推荐5款特色图表生成器：1）PicDoc通过AI将文字自动转化为20+种专业图表，支持文图混编且完全免费；2）百度脑图提供轻量级思维导图制作，支持云端同步；3）ProcessOn具备团队协作功能，含丰富模板库；4）爱图表可快速美化Excel数据图表；5）镝数图表整合50万+权威行业数据。建议根据文本转图表、思维导图、团队协作、Excel优化或行业数据等核心需求选择对应的图表生成器，让专业图表制作变得简单高效。
C#让Excel中数据自动生成图表
06-06
vs2010用C#以编程方式生成Excel图表.
13个数据可视化工具 一键生成可视化图表
码为人生的博客
12-18 4512
数字经济时代，我们每天正在处理海量数据，对数据可视化软件的需求变得突出，它可以帮助人们通过模式、趋势、仪表板、图表等视觉辅助工具理解数据的重要性。如果遇到数据集需要分析处理，但是你不又知道选择何种数据可视化工具。那么你来对地方了，往下看。数据可视化是创建数据集趋势、模式和关键见解的可视化表示的过程。数据可视化工具是帮助您创建可视化的软件。随着数字经济的高速发展，市场上的数据可视化工具软件也是越来越多，功能也是越来越强大，该选择何种工具软件来实现自己的数据可视化需求，还应多因素去综合考虑，比如定价、功能等。
6款AI表格工具，各类图表一键生成，快来收藏吧！
热门推荐
AI360labs_atyun的博客
01-15 1万+
此外，它还支持上传Excel文件，但有一定的使用限制。当你需要一边搜索公开信息，一边将内容绘制成图表时，这款AI智能体能根据你的需求，一站式完成信息检索、提取及图表生成的工作，支持折线图、饼状图、柱状图等多种常见图表形式。AEE是一款基于AI技术的在线Excel编辑器，无需掌握复杂的Excel操作和公式，只需输入简单的提示语，即可自动完成数据操作或编写公式，极大地提升了办公效率。想象一下，如果你需要调研潜在客户的信息，通常的做法是先列出客户名称，然后逐一在网上搜索相关内容，并手动输入到表格中……
AI订制生成excel表格——用好提示词就行了
weixin_60895836的博客
01-16 4081
现在市面上有很多AI提升效率的工具，ai生成思维导图、演示文稿（ppt）、原型设计稿、Word文档、Excel表格、代码、论文查重，甚至直接做个网站app部署发布上去，这样带来巨大生产力的背后是无数公司降本增效，大量员工被毕业，所以在未来，如果你不会用AI实现生产力的提升，或者懂得这背后的原理去做操纵它的人，那么很容易会被时代的浪潮吞噬。你是一个经验丰富的 Excel 生成器。JSON 模板的结构如下：\n’ +’ “data”: [{“key1”: “值1”, “key2”: “值2”}, …
基于大量数据的Excel文件生成方案
Elim的博客
06-28 6909
基于大量数据的Excel生成方案以往我们在基于POI生成Excel文件时，都是利用官方提供的HSSF或XSSF对应的系列API，它们操作简便，上手比较快。但是对于大数据量的Excel文件生成往往会比较耗时，这是我们利用标准的API进行开发的一个痛点。对于性能更高一点的API，POI官方会建议我们使用SXSSF系列API，虽然它的性能比起HSSF和XSSF会有很大的提高，但是面对大量数据的时候还是会
ExcelVBA实现一键生成word文字报告及批量操作[原创]
weixin_30426879的博客
01-30 1万+
在很多工作中，经常需要写一些类似的报告，使用同一个模板，只是里面的数据不同，人工操作工程量大且容易出错，如果能用程序直接实现可以省去不少麻烦。 本文使用ExcelVBA实现，主要思路是使用word邮件合并功能，将word文字报告与Excel数据链接，不太了解邮件合并功能的戳：http://xinzhi.wenda.so.com/a/1517858371619706 本文内容适用于 快...
Excel快速生成曲线工具_更新
12-08
使用本工具打开Excel数据表格文件，可快速生成直观的曲线图，可修改曲线图的颜色、背景、标尺并支持打印、保存曲线、复制到粘贴板等功能。
钻孔柱状图生成软件
03-29
用于自动生成钻孔柱状图的软件，便于勘查工作者很好的整理钻孔数据。
jquery.table2excel.js 一键生成Excel表格
09-25
jquery.table2excel.js 可一键生成Excel表格,需要jQuery.js支持 详细使用方法可见我的博客 https://blog.youkuaiyun.com/weixin_42571089/article/details/108799543
Excel应用—一键生成69种Excel图表_V2.0
预见未来to50的专栏
07-03 3820
发现上次熬夜写的VBA代码还有一些bug，一不小心又花了近4个小时完善了一下“一键生成各种69种Excel图表”的功能。 改进的地方有： 1. 图表输出顺序调整为从左到右，从上到下输出（耗时最多的部分） 2. 图表的标题中包含了图表类型（如，气泡图，三维堆积柱形图，三维堆积面积图等） 现在，图表区看起来舒服了很多，有图为证。 后记：前一篇博文说过在Spotfire进行数据可视
炫酷插件_那些炫酷的爆炸分析图，我一键就自动生成了！（附插件）
weixin_42301080的博客
01-15 2184
本文来源：工程行业洞察如有版权问题，请联系删除文末赠送本文su爆炸图一键生成插件给你们看看刚做的图哇，好厉害的爆炸分析图啊！嘿嘿，是不是有点帅气一看就是满满的工作量啊，做了很久吧？嘿嘿，我自有妙招你就别卖关子啦我其实只用了几秒就生成爆炸图了Sketchup 爆炸图神器，你值得拥有！！！蛋素，你不会用那也是白搭！！不要怕，小方教你啊Let us go !!!!教程正文01安装插件教程...
ioDraw - 免费的在线图表制作工具
ixiaoyang的专栏
12-10 3296
ioDraw是一款数据可视化图表库，提供直观，生动，可交互，可个性化定制的数据可视化图表，支持折线图、柱状图、饼图、散点图等。用ioDraw图表制作神器，操作简单高效，小白也能做出漂亮专业的图表!
不再被日报月报折磨！一键生成报表模板的神器来了
Leo的博客
09-09 8440
最近从一位HR朋友那里听到了一件有趣的事情： 他们公司正在招聘销售助理岗，一个经验丰富的面试者各方面都很优秀，马上要发offer的时候，他问了一句”要汇总销售报表吗“？HR点头说道“销售管理需要写日报、周报、月报”，面试者竟然直接起身，表示坚决不干。 我的HR朋友对此很是疑惑不解，问我：“日报、周报这样的报表有那么可怕吗？不就是把每天的数据汇报一下吗，有这么夸张吗？” 虽然我很替这位HR朋友...
Excel如何把表格变成图表
RZer的博客
09-05 2334
Excel如何把表格变成图表
使用Screw一键生成数据库设计文档生成excel文档
01-19
### 使用 Screw 工具从数据库设计生成 Excel 文档 #### 特性和功能概述 `cn.smallbun.screw` 是一个强大的开源工具，专门用于将复杂的数据库结构转换成易于理解的文档形式[^1]。尽管该工具主要用于生成 HTML 或者...
评论 6
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值