Excel VBA控制齿轮旋转/暂停技巧
要在PPT中实现一个图片的扭转，在良多人看来是很简单的。对于那些没接触过VBA的伴侣来说，要在Excel中实现这个结果的确不敢想。本教程就是教你如何在Excel中实现这个结果。
工具/原料
- Excel（本教程以Excel2013为例）
方式/步骤
- 1
先绘制齿轮，并记住组合外形的名称（可在名称框中获得，本教程是组合 27），具体流程可参考以下链接：
- 2
（如若赶时候，可用步调二来替代步调一，先用一张图片或者外形取代齿轮）
具体操作：点击菜单栏“插入”—“图片”（或“外形”）。
- 3
绘制节制按钮（本教程编纂文字为 起头扭转），并设置其格局，具体操作：
1.插入外形，本教程以插入一个矩形为例；
2.设置格局；
3.同理，建造”暂停“按钮。
- 4
进入VBA窗口，插入模板。
- 5
输入代码：
Dim k%
Sub xuanzhuan() ‘节制齿轮扭转
k = 0
Do
Sheets(1).Shapes("组合 27").IncrementRotation -1 ’负数为逆时针动弹
DoEvents
Loop Until k = 1
End Sub
Sub zanting() ‘节制齿轮暂停
k = 1
End Sub
- 6
回到Excel界面，将“起头扭转”按钮指定扭转的宏代码（xuanzhuan），“暂停”按钮指定宏zanting.
- 7
点击“节制”按钮（起头扭转），实现齿轮扭转；
点击“暂停”按钮，扭转齿轮立马暂停；
再次点击“起头扭转”，齿轮继续动弹。
注重事项
- 若是对您有点帮忙，请帮手撑持一下，感谢！
- 发表于 2018-03-14 00:00
- 阅读 ( 281 )
- 分类：其他类型
