文章预览
学习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(
………………………………