Excel VBA控制齿轮旋转/暂停技巧

      要在PPT中实现一个图片的扭转, 在良多人看来是很简单的 。 对于那些没接触过VBA的伴侣来说, 要在Excel中实现这个结果的确不敢想 。 本教程就是教你若何在Excel中实现这个结果 。

Excel VBA控制齿轮旋转/暂停技巧

文章插图

需要这些哦
Excel(本教程以Excel2013为例)
方式/
1先绘制齿轮, 并记住组合外形的名称(可在名称框中获得, 本教程是组合 27), 具体流程可参考以下链接:
35Excel 齿轮绘制技巧

Excel VBA控制齿轮旋转/暂停技巧

文章插图

Excel VBA控制齿轮旋转/暂停技巧

文章插图

2(如若赶时候, 可用
二来替代
一, 先用一张图片或者外形取代齿轮)
具体操作:点击菜单栏“插入”—“图片”(或“外形”) 。

Excel VBA控制齿轮旋转/暂停技巧

文章插图

3绘制节制按钮(本教程编纂文字为 起头扭转), 并设置其格局, 具体操作:
1.插入外形, 本教程以插入一个矩形为例;
2.设置格局;
3.同理, 建造”暂停“按钮 。

Excel VBA控制齿轮旋转/暂停技巧

文章插图

Excel VBA控制齿轮旋转/暂停技巧

文章插图

Excel VBA控制齿轮旋转/暂停技巧

文章插图

4进入VBA窗口, 插入模板 。
10Excel2007打开VBA的三种方式!

Excel VBA控制齿轮旋转/暂停技巧

文章插图

5输入代码:
Dim k%
Sub xuanzhuan()  ‘节制齿轮扭转
 k = 0
 Do
  Sheets(1).Shapes("组合 27").IncrementRotation -1  ’负数为逆时针动弹
  DoEvents
 Loop Until k = 1
Sub
Sub zanting() ‘节制齿轮暂停
 k = 1
Sub

Excel VBA控制齿轮旋转/暂停技巧

文章插图

6回到Excel界面, 将“起头扭转”按钮指定扭转的宏代码(xuanzhuan), “暂停”按钮指定宏zanting.

Excel VBA控制齿轮旋转/暂停技巧

文章插图

Excel VBA控制齿轮旋转/暂停技巧

文章插图

Excel VBA控制齿轮旋转/暂停技巧

文章插图

7点击“节制”按钮(起头扭转), 实现齿轮扭转;
点击“暂停”按钮, 扭转齿轮立马暂停;
【Excel VBA控制齿轮旋转/暂停技巧】

推荐阅读