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

在PPT中实现图片的旋转对很多人来说是一项简单的任务。然而，对于那些没有接触过VBA的朋友们来说，在Excel中实现这个效果可能会感到困惑。本教程将向您展示如何在Excel中实现这个效果。 步骤一：

在PPT中实现图片的旋转对很多人来说是一项简单的任务。然而，对于那些没有接触过VBA的朋友们来说，在Excel中实现这个效果可能会感到困惑。本教程将向您展示如何在Excel中实现这个效果。

步骤一：绘制齿轮和按钮

首先，我们需要绘制一个齿轮，并记住组合形状的名称（在名称框中可以找到，本教程中组合形状的名称为“组合27”）。具体的绘制流程可以参考以下链接：Excel齿轮绘制技巧2。如果时间紧迫，您也可以使用一张图片或者其他形状来代替齿轮。

接下来，我们需要绘制两个控制按钮。本教程以“开始旋转”和“暂停”为例。具体操作如下：

1. 插入形状，本教程以插入一个矩形为例；
2. 设置格式；
3. 同样的方法，制作“暂停”按钮。

步骤二：插入VBA代码

1. 进入VBA窗口，可以使用三种方法打开Excel 2007中的VBA窗口。Excel 2007打开VBA的三种方法！

2. 在VBA窗口内输入以下代码：

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

步骤三：指定宏代码

回到Excel界面，将“开始旋转”按钮指定旋转的宏代码（xuanzhuan），将“暂停”按钮指定宏代码（zanting）。

步骤四：控制齿轮旋转/暂停

最后一步，点击“控制”按钮（即“开始旋转”按钮），就能实现齿轮的旋转。点击“暂停”按钮，齿轮将立刻停止旋转。再次点击“开始旋转”按钮，齿轮将继续旋转。