在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来拉长数据的调整时间。

阅读全文