在PPT中實現(xiàn)圖片的旋轉(zhuǎn)對很多人來說是一項簡單的任務(wù)。然而，對于那些沒有接觸過VBA的朋友們來說，在Excel中實現(xiàn)這個效果可能會感到困惑。本教程將向您展示如何在Excel中實現(xiàn)這個效果。 步驟一：

在PPT中實現(xiàn)圖片的旋轉(zhuǎn)對很多人來說是一項簡單的任務(wù)。然而，對于那些沒有接觸過VBA的朋友們來說，在Excel中實現(xiàn)這個效果可能會感到困惑。本教程將向您展示如何在Excel中實現(xiàn)這個效果。

步驟一：繪制齒輪和按鈕

首先，我們需要繪制一個齒輪，并記住組合形狀的名稱（在名稱框中可以找到，本教程中組合形狀的名稱為“組合27”）。具體的繪制流程可以參考以下鏈接：Excel齒輪繪制技巧2。如果時間緊迫，您也可以使用一張圖片或者其他形狀來代替齒輪。

接下來，我們需要繪制兩個控制按鈕。本教程以“開始旋轉(zhuǎn)”和“暫停”為例。具體操作如下：

1. 插入形狀，本教程以插入一個矩形為例；
2. 設(shè)置格式；
3. 同樣的方法，制作“暫停”按鈕。

步驟二：插入VBA代碼

1. 進入VBA窗口，可以使用三種方法打開Excel 2007中的VBA窗口。Excel 2007打開VBA的三種方法！

2. 在VBA窗口內(nèi)輸入以下代碼：

Dim k%
Sub xuanzhuan()
 '控制齒輪旋轉(zhuǎn)
 k  0
 Do
   Sheets(1).Shapes("組合27").IncrementRotation -1 '負數(shù)為逆時針轉(zhuǎn)動
   DoEvents
 Loop Until k  1
End Sub
Sub zanting()
 '控制齒輪暫停
 k  1
End Sub

步驟三：指定宏代碼

回到Excel界面，將“開始旋轉(zhuǎn)”按鈕指定旋轉(zhuǎn)的宏代碼（xuanzhuan），將“暫?！卑粹o指定宏代碼（zanting）。

步驟四：控制齒輪旋轉(zhuǎn)/暫停

最后一步，點擊“控制”按鈕（即“開始旋轉(zhuǎn)”按鈕），就能實現(xiàn)齒輪的旋轉(zhuǎn)。點擊“暫停”按鈕，齒輪將立刻停止旋轉(zhuǎn)。再次點擊“開始旋轉(zhuǎn)”按鈕，齒輪將繼續(xù)旋轉(zhuǎn)。