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

在PPT中實(shí)現(xiàn)圖片的旋轉(zhuǎn)對(duì)很多人來(lái)說(shuō)是一項(xiàng)簡(jiǎn)單的任務(wù)。然而，對(duì)于那些沒(méi)有接觸過(guò)VBA的朋友們來(lái)說(shuō)，在Excel中實(shí)現(xiàn)這個(gè)效果可能會(huì)感到困惑。本教程將向您展示如何在Excel中實(shí)現(xiàn)這個(gè)效果。

步驟一：繪制齒輪和按鈕

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

接下來(lái)，我們需要繪制兩個(gè)控制按鈕。本教程以“開(kāi)始旋轉(zhuǎn)”和“暫?！睘槔＞唧w操作如下：

1. 插入形狀，本教程以插入一個(gè)矩形為例；
2. 設(shè)置格式；
3. 同樣的方法，制作“暫?！卑粹o。

步驟二：插入VBA代碼

1. 進(jìn)入VBA窗口，可以使用三種方法打開(kāi)Excel 2007中的VBA窗口。Excel 2007打開(kāi)VBA的三種方法！

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

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

步驟三：指定宏代碼

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

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

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