Excel是一種比較常用的軟件,但是它里面的許多內(nèi)容還是比較難的。例如其中使用vba可以制作一種動(dòng)畫效果,但是如何制作一個(gè)圓形沿著直線移動(dòng)的效果呢?下面小編就為你們講解一下,需要的朋友可以參考一下。
一、添加素材
1、繪制控制按鈕:插入一個(gè)矩形形狀,設(shè)置格式,如圖所示。
2、繪制圓形圖形:在插入形狀命令中,找到橢圓形形狀,然后按下Shift鍵,繪制圓形。
4、素材整理好之后,如圖所示。包含三塊:控制按鈕,直線和圓形。PS:本教材的素材都是通過插入形狀得到的。
二、VBA代碼
1、進(jìn)入VBA窗口
2、插入模塊:在菜單欄中找到“插入”—“模塊”。
3、輸入代碼:在模塊中輸入代碼
三、設(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)畫效果的方法,希望對你們有用。
一、添加素材
1、繪制控制按鈕:插入一個(gè)矩形形狀,設(shè)置格式,如圖所示。
3·
4
3、繪制直線:插入一條直線。PS:繪制時(shí)按下Shift鍵不松。4
1、進(jìn)入VBA窗口
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
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
1、從VBA窗口回到Excel窗口;
- 如何快速屏蔽Excel中所有錯(cuò)誤提示?
- Word和Excel如何批量去掉超鏈接?
- 如何解決excel宏運(yùn)行時(shí)提示1004錯(cuò)誤的問題
- Excel折線圖怎么用?
- 打開Excel表格自動(dòng)會(huì)打開一個(gè)sheet1空白工作薄該怎么辦?
- Excel sumif函數(shù)包怎么用?
- Win7使用excel打開csv文件都是亂碼怎么解決
- Win10系統(tǒng)csv格式文件轉(zhuǎn)換為excel xlsx文件的方法
- excel除法、乘法、加減法怎么用?
- Excel表格的表頭斜線怎么弄出來?
- 如何把excel表格數(shù)據(jù)轉(zhuǎn)成圖片?
- Excel表格中怎么使用DEVSQ函數(shù)?