Excel是一種比較常用的軟件，但是它里面的許多內(nèi)容還是比較難的。例如其中使用vba可以制作一種動(dòng)畫效果，但是如何制作一個(gè)圓形沿著直線移動(dòng)的效果呢？下面小編就為你們講解一下，需要的朋友可以參考一下。

一、添加素材

       1、繪制控制按鈕：插入一個(gè)矩形形狀，設(shè)置格式，如圖所示。





 
       2、繪制圓形圖形：在插入形狀命令中，找到橢圓形形狀，然后按下Shift鍵，繪制圓形。


3·


4

 
       3、繪制直線：插入一條直線。PS：繪制時(shí)按下Shift鍵不松。


 


 
       4、素材整理好之后，如圖所示。包含三塊：控制按鈕，直線和圓形。PS：本教材的素材都是通過插入形狀得到的。


 
二、VBA代碼
       1、進(jìn)入VBA窗口


 
       2、插入模塊：在菜單欄中找到“插入”—“模塊”。


 
       3、輸入代碼：在模塊中輸入代碼
Sub moveshape()
Dim i%
    Do
        i = i + 1
        Sheet1.Shapes(2).Left = i + 50 ‘圓形圖形向右移動(dòng)
        DoEvents
    Loop Until i = 1000
    Do
        i = i - 1
        Sheet1.Shapes(2).Left = i + 50  ’圓形圖形向左移動(dòng)
        DoEvents
    Loop Until i = 1
End Sub
 

 
三、設(shè)置控制按鈕

       1、從VBA窗口回到Excel窗口；


 
       2、控制按鈕設(shè)置：讓該按鈕指定以上代碼，即moveshape；


 

 
       3、實(shí)現(xiàn)動(dòng)畫：按下“開始”控制按鈕即可實(shí)現(xiàn)圓形先向右移動(dòng)，然后向左移動(dòng)。


 
       Excel現(xiàn)在使用這么普遍，小編上邊整理的方法這種vba制作動(dòng)畫效果的方法，希望對你們有用。
裝機(jī)