交互式图表示例：生成GIF动画

完美Excel · 公众号 · Excel · 2024-10-10 05:56

正文

学习Excel技术，关注微信公众号：

excelperfect

标签：Excel图表

这是系列文章的第3篇，前2篇分别是：

交互式图表示例：数数有多少个正方形

交互式图表示例：让图表动起来

在《交互式图表示例：数数有多少个正方形》中，展示如何构建一个交互式图表，通过使用滚动条来显示可以在散点图中绘制多少个正方形。

在《交互式图表示例：让图表动起来》中，使用VBA来实现让正方形按顺序或随机自动绘制。

这篇文章，介绍如何将动态图表变成GIF动画。而要制作动态的GIF，需要一系列图像，并使用工具将它们组合成一个动画文件。

我们将上一篇文章中的程序稍作修改，使其生成一系列图像，以供生在GIF动画。程序如下：

Sub LoopTheSquares() Dim iMin As Long Dim iMax As Long iMin = Worksheets("Sheet1").Range("ScrollMin").Value2 iMax = Worksheets("Sheet1").Range("ScrollMax").Value2
 Dim rNow As Range Set rNow = Worksheets("Sheet1").Range("ScrollNow")
 Dim iNow As Long For iNow = iMin To iMax   rNow.Value2 = iNow   Worksheets("Sheet1").Calculate   DoEvents   Worksheets("Sheet1").ChartObjects(1).Chart.Export _     ThisWorkbook.Path & "\Frame" & Format(iNow, "00") & ".gif" Next rNow.Value2 = 0End Sub