用Excel做动画，一定会有人觉得新鲜。其实，会一点gif动画，会Excel基本操作，再加点宏的初步 知识，做出如下图效果的Excel动画，不是困难的事。Excel文件不能上传到空间，示图是用截图转成的 gif动画,原动画由于没有gif动画保存时的优化压缩，画质更好。
简单说，做Excel动画就两件事：1.把动画帧依次放到各工作表。2.粘贴一个翻页宏，让工作表逐页 显示并循环执行。如果高兴，还可以通过插入对象，插入音效，为动画配音，这是gif动画办不到的。
说明：1.动画帧不能以插入图片的方式插到工作表，估计是响应速度的问题，画面中会产生向下移动 的背景色横条。应该用填充背景图的方式置入，形成背景图后会产生平铺图案现象，以下三步可以设定 好：1.选取整页工作表(点行号列标的左上角处）填充背景色(白色或其它色),它会复盖住全部背景图案。 2.选择背景里一张图片的区域，把背景色改为无背景色，这个区域就又显示背景图像。3.合并这个区域
单元格，图像中的框格线就不见了。
粘贴如下宏代码到模块：
Option Explicit
Private TimeId As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long,
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Sub Test()
Worksheets(1).Activate
TimeId = SetTimer(0&, 0&, 100, AddressOf MyActiveSheet)
End Sub
Sub MyActiveSheet()
ActiveSheet.Next.Activate
If ActiveSheet.Name = Worksheets( _
Worksheets.Count).Name Then Worksheets(1).Activate
End Sub
最后在sheet1绘制一个透明矩形作为按钮，设定指向那个名为Test的宏。在sheet1为活动单元格时保存。
这个文件运行时会在点击单元格后自行关闭，需保存后试运行，否则易因文件退出而失去保存机会。
I

我一看到宏 就晕了 = =