发布网友 发布时间:2024-10-03 14:39
共1个回答
热心网友 时间:2024-10-23 19:31
在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来拉长数据的调整时间。