利用excel挑战制作动态图片之3 模拟齿轮转动和皮带滚动

通过上一节对高通公司动态二维码图片的分析以及图标滚动的制作，对利用Excel制作动画有了一个初步的认识，一般实现Excel动画有如下几个途径：1.利用开发工具滚动条产生单元格数据变化，使图片模拟产生动态变化；2.利用VAB代码实现时钟变化，从而动态产生数据变化；3.利用VBA 代码驱动形状自动产生旋转效果。

这一节，我们利用VBA代码和气泡图图表制作模拟齿轮转动和皮带滚动效果，运行效果如下：

模拟齿轮转动和皮带滚动

第一步 制作思路：此动态图包括旋转的齿轮和滚动的皮带，齿轮可以利用图形旋转函数实现，滚动皮带条可以用气泡图水平移动实现。

第二步 提取图片：利用画图工具或PS将高通二维码动图中的图片分别截取下来，两个齿轮分别命名为 chilun1、chilun2。

第三步 生成齿轮旋转函数：打开开发工具VB工程资源管理器窗口，在当前工作薄中增加一个模块，并写入如下代码：

Sub 图片旋转()

ActiveSheet.Shapes("chilun").IncrementRotation 30

ActiveSheet.Shapes("chilun2").IncrementRotation 30

End Sub

第四步 让齿轮旋转： 在工作表中插入一个表单控件--按钮，取名为“齿轮旋转”，点击按钮并按右键，选择“指定宏”，然后选择宏“图片旋转”。此时只要按按钮，齿轮即可旋转。

第五步 生成气泡图：

气泡图生成皮带轮

第六步 参照上一期，将气泡图形状换成黑色小柱体，并插入背景，如下图：

调整气泡图样子

第七步 生成动态数据

动态数据生成情况

1.插入一个滚动条，并按如下设置空间格式：

插入滚动条

2. F26 单元格的值：“=MOD(D1,20)” ，说明：D1是滚动条生成的值，最大为100，最小为1；20表示X的值的个数一共有20个；MOD（）是取余函数，表示对D1数据取余。
3. 左边辅助列公式：“=100-(ROW(F1)-1)*5-5*$F$26” 表示数据每次递减为5；
4. X列的公式：“IF((F4<=0),100 F4,F4)”，表示若辅助列数据小于0时，数据就重新开始从100计数，从而产生循环变化的效果。

第八步 图形整合

将两张齿轮图和气泡图合并在一起，就生成了效果图，并通过按钮或滚动条驱动图片，从而达到滚动的效果。

第九步 总结

以上利用滚动条产生数据变化以及利用VBA计数器产生动态效果，执行效率较低，特别是在多图表的状态下，动态效果无法呈现。故Excel 制作动画纯属娱乐，若大家想做更生动的动画可以参考学习CSS3、JavaScript或者Python等编程来实现。后续我也会陆续制作相关小单元和大家共享。

以上就是我利用Excel挑战高通二维码动态图的内容，大家有什么更好的建议和意见，欢迎在评论区留言。

我是HR多面手，如果对我的作品感兴趣欢迎大家收藏、关注、评论、点赞或转发，大家在使用EXcel的过程中有什么困难或在HR工作中有什么疑问都可以私信我或在评论区留言，我都会一一回复给大家！