Excel VBA实现超炫酷动态可视化图表

Excel VBA实现超宣炫酷动态图表

数据来源于:国家统计局官网。

制作过程:

①数据准备

原图表的数据来源是:http://www.ifs.du.edu,是各国的历史GDP数据,我也去找了这个数据,但是直接能用的只到2017年,不想在数据上浪费太多时间,就到国家统计局官网:http://www.stats.gov.cn/ 上看了看,发现有各省份近20年的常住人口数据,刚好符合这个图表的数据要求,保存到Excel文件里。

②作图

条形图两列数据就可以,一列省份,另一列人口数量,选中数据插入条形图,然后对图表的字体、外观、数据系列格式等进行调整,调整到想要的效果,这里分享一个小技巧,现在一提到大数据、高科技,一般都会有一个科技感十足的背景图,找一张合适的背景图,调整成合适的尺寸。有了背景图以后,绘图区域设置背景就可以了,然后添加数据标签、设置标签格式,图表右下方插入一个文本框,用来展示年份,在这一步就把静态的图表调整成自己希望的样式就可以了。

③动起来

做完以上工作后,图表还是静态的,要想让它动起来,需要通过VBA替换数据,主要过程就是替换数据,等待一定时间,控制权交回系统,循环以上过程,图表就动起来了,由于代码实在写的太烂了,就不公布了,原理就是如此。视频是通过录屏软件得到的,音乐是无他相机加上的,到此已经完成了一个Excel VBA实现的动态图表,是不是也很简单?

 

获取源文件(19.9元):wangzhifeng@tongdog.com.cn

VBA(Visual Basic for Applications)是一种宏语言,常用于Microsoft Office应用程序中,包括Excel、Word等。如果你想在Excel创建超炫动态图表VBA可以帮助你自动化和定制图表生成过程。 1. **基本步骤**: - 首先,在Excel中打开你的数据,选择你想制作图表的数据区域。 - 新建一个VBA模块(可通过菜单栏的"开发者"->"Visual Basic"访问),然后编写脚本。 2. **使用ChartObjects类**: - 创建一个新的图表对象(如ChartObject.Add方法),指定图表的位置和类型(例如,`chtBarClustered`表示簇状柱形图)。 - 设置图表标题、轴标签等属性,通过`.SetSourceData Source:=Range("your_data_range")`设置数据源。 - 利用`.Activate`使图表成为活动对象,可以进一步修改其样式(如动画效果)或添加事件驱动的行为。 3. **动态更新**: - 如果你需要图表随数据变化而动态更新,你可以使用`OnChange`事件,当数据发生变化时触发相应的VBA函数来刷新图表。 4. **示例代码**: ```vba Sub CreateDynamicChart() Dim chartObj As ChartObject Set chartObj = ThisWorkbook.Sheets("Sheet1").Shapes.AddChart(xlColumnClustered) With chartObj.Chart .SetSourceData Source:=Range("A1:B10") .HasTitle = True .ChartTitle.Text = "My Cool Chart" ' 添加动态更新代码 .On Change:="RefreshChart" End With End Sub Private Sub RefreshChart() ' 你的刷新逻辑放在这里 End Sub ``` 这里只是一个基础框架,实际效果可能需要结合更复杂的条件判断和美化代码。
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值