Excel动画图表原理
时间:2023-01-24 18:45:57
在Excel中,我们可以绘制动画图表,如下图所示。
下面我们来详细介绍实现Excel动画图表的过程。
准备数据
如下图1所示,在单元格区域A3:C16中是使用的示例数据。
图1
以图1的示例数据为基础,使用公式得到数据区域E3:G16,如下图2所示。
图2
其中,单元格F4中的公式为:
=IF($E4<=$F$1,B4,NA())
向下拉至单元格F16。
单元格G4中的公式为:
=IF($E4<=$F$1,IF(C4=0,””,C4),NA())
向下拉至单元格G16。
并将单元格F1命名为:
step
绘制图表
选择数据区域E3:F16,插入折线图,并添加数据标签,进行适当的格式设置,结果如下图3所示。
图3
其中,数据标签取单元格区域G4:G16中的值,并显示引导线。在Excel 2016中设置数据标签格式如下图4所示。(在之前的Excel版本中,可能要经过一些操作才能达到同样的效果,或者使用专门的加载宏)
图4
编写VBA代码
在绘制的图表右上角放置一个按钮控件,并指定宏,如下图5所示。
图5
VBA代码如下:
Sub chartanimate()
Dim i As Long
Dim size As Long
size = 120
For i = 0 To size
[step] = i / 10
DoEvents
Next i
End Sub
调整图表设置
单击“开启动画绘图”按钮,效果如下图6所示。
图6
可以看到,效果并不,主要是随着图表的绘制,坐标轴的数值不断变化。可以对垂直坐标轴的数值进行设置,手动输入最大值,如下图7所示。
图7
最后的效果如下图8所示。
图8
让动画速度可以调节
设置数据验证,如下图9所示,在单元格B20中可以选取相应的速度项。
图9
设置速度值查询表,如下图10所示的单元格区域D20:E25。
图10
命名单元格。如下图11所示,单元格H20的名称为“scale”,单元格H21的名称为“step”。
图11
其中,单元格H20中的值使用查找公式得到,公式为:
=VLOOKUP(B20,$D$21:$E$25,2,FALSE)
这样,在选取单元格B20中的数值后,单元格H20中的值会相应变化,从而设置相应的速度值。
修改绘图数据区域中的相应公式,如下图12和图13所示。
图12
图13
将单元格F4和G4分别下拉至第16行。
此时,单击“开启动画绘图”按钮,我们可以看到完整的绘制图表过程及数据变化过程。如下图14所示。
图14
在单元格B20中选取不同的速度,看看绘制图表的快慢效果,如下图15所示。
图15
结语
图表是以数据为驱动的,因此数据的动态调整,并适当拉长数据的调整时间,就可以实现动画图表效果。
使用公式来实现数据的动态调整。
使用VBA来拉长数据的调整时间。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Excel利用公式生成九九乘法表
![](https://img.aspxhome.com/file/2023/1/a141691_0s.jpg)
Win10电脑如何设置mtu值?Win10电脑mtu值设置方法教程
![](https://img.aspxhome.com/file/2023/8/51998_0s.jpg)
excel表格中的数据怎么添加图标集?
![](https://img.aspxhome.com/file/2023/2/40322_0s.png)
word如何进入修改批注模式?
![](https://img.aspxhome.com/file/2023/6/18856_0s.jpg)
WPS怎么给重要段落加红色边框
![](https://img.aspxhome.com/file/2023/2/53682_0s.jpg)
Word转成网页,网页转Word的方法
![](https://img.aspxhome.com/file/2023/0/20920_0s.jpg)
哪些机型不建议升级iOS 15.4?
![](https://img.aspxhome.com/file/2023/3/45543_0s.png)
Win10专业版系统资源管理器出现停滞现象怎么办?
![](https://img.aspxhome.com/file/2023/6/50306_0s.jpg)
excel2010表格怎么快速插入一个永久日历?
![](https://img.aspxhome.com/file/2023/1/40081_0s.png)
怎么计算Excel表格当中空单元格个数?countblank函数的使用方法
![](https://img.aspxhome.com/file/2023/9/42309_0s.jpg)
excel使用if判断单元格包含特定字符
![](https://img.aspxhome.com/file/2023/5/37615_0s.png)
word怎么隐藏隐藏图片提高加载速度?
![](https://img.aspxhome.com/file/2023/2/24082_0s.jpg)
哪些设备可以装载Win10X操作系统?可以安装Win10X的设备介绍
![](https://img.aspxhome.com/file/2023/4/50154_0s.png)
PDF随意画功能怎么用?PDF随意画功能使用教程
Win10更新后显示oem分区怎么隐藏?隐藏oem分区的操作方法
![](https://img.aspxhome.com/file/2023/1/49061_0s.jpg)
EXCEL制作柏拉图步骤详解
![](https://img.aspxhome.com/file/2023/1/41551_0s.jpg)
word中怎么把一张页面设置成横向
如何在Word2010文档中设置打印前更新域
![](https://img.aspxhome.com/file/2023/9/29989_0s.jpg)
Excel条件格式快速获取多个对象的最大数据值操作方法分享
![](https://img.aspxhome.com/file/2023/4/16054_0s.png)
Word2007中如何设置使用自动调整工具固定宽度
![](https://img.aspxhome.com/file/2023/1/29581_0s.jpg)