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

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

东西/原料

• Excel（本教程以Excel2013为例）

方式/步调

1. 1

   先绘制齿轮，并记住组合外形的名称（可在名称框中获得，本教程是组合 27），具体流程可参考以下链接：

   35齿轮绘制技巧

   
2. 2

   （如若赶时候，可用步调二来替代步调一，先用一张图片或者外形取代齿轮）

   具体操作：点击菜单栏“插入”—“图片”（或“外形”）。

   
3. 3

   绘制节制按钮（本教程编纂文字为 起头扭转），并设置其格局，具体操作：

   1.插入外形，本教程以插入一个矩形为例；

   2.设置格局；

   3.同理，建造”暂停“按钮。

   
4. 4

   进入VBA窗口，插入模板。

   10打开的三种方式

   
5. 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. 6

   回到Excel界面，将“起头扭转”按钮指心猿意马扭转的宏代码（xuanzhuan），“暂停”按钮指心猿意马宏zanting.

   
7. 7

   点击“节制”按钮（起头扭转），实现齿轮扭转；

   点击“暂停”按钮，扭转齿轮立马暂停；

   再次点击“起头扭转”，齿轮继续动弹。

   

注重事项

• 若是对您有点帮忙，请帮手撑持一下，感谢！