Excel怎么利用VBA事先圓形沿直線移動的效果?

excel中制作動畫效果也很簡單,可以使用bva實現(xiàn),下面我們就來看看詳細(xì)的教程。
一、添加素材
1、繪制控制按鈕:插入一個矩形形狀,設(shè)置格式,如圖所示。
2、繪制圓形圖形:在插入形狀命令中,找到橢圓形形狀,然后按下Shift鍵,繪制圓形。
3、繪制直線:插入一條直線。PS:繪制時按下Shift鍵不松。
4、素材整理好之后,如圖所示。包含三塊:控制按鈕,直線和圓形。PS:本教材的素材都是通過插入形狀得到的。
二、VBA代碼
1、進入VBA窗口
2、插入模塊:在菜單欄中找到“插入”—“模塊”。
3、輸入代碼:在模塊中輸入代碼
Sub moveshape() Dim i% Do i = i + 1 Sheet1.Shapes(2).Left = i + 50 ‘圓形圖形向右移動 DoEvents Loop Until i = 1000 Do i = i - 1 Sheet1.Shapes(2).Left = i + 50 ’圓形圖形向左移動 DoEvents Loop Until i = 1 End Sub
三、設(shè)置控制按鈕
1、從VBA窗口回到Excel窗口;
2、控制按鈕設(shè)置:讓該按鈕指定以上代碼,即moveshape;
3、實現(xiàn)動畫:按下“開始”控制按鈕即可實現(xiàn)圓形先向右移動,然后向左移動。
以上就是excel中vba制作動畫效果的教程,希望大家喜歡,請繼續(xù)關(guān)注腳本之家。
相關(guān)推薦:
excel怎么使用vba的close關(guān)閉工作簿?
相關(guān)文章
- 在用Excel制作圖表時,如果縱軸系列過多會導(dǎo)致在圖形上觀察數(shù)據(jù)的不便,下面小編就為大家介紹Excel制作隨心變的圖表動態(tài)標(biāo)題方法,一起來看看吧2016-11-24
Excel2010怎么制作分層折線圖? excel分層折線圖的制作方法
Excel2010怎么制作分層折線圖?excel2010中想要將數(shù)據(jù)制作成折線圖,但是數(shù)據(jù)太多,導(dǎo)致折線圖很亂,該怎么分層顯示折線圖呢?下面我們就來看看excel分層折線圖的制作方法2016-11-20- EXCEL是日常工作中經(jīng)常用到的辦公軟件之一,數(shù)據(jù)分析中經(jīng)常需要觀察數(shù)據(jù)的走勢,拆線圖為用戶提供了一個很好的呈現(xiàn)界面,那么在Excel表格中怎么制作圖表?下面小編就為大家介紹2016-11-13
- excel表格中怎么制作凸顯立體3d選項效果?想讓excel中的表格表格凸出出來,看上去像是立體的選項,該怎么設(shè)置呢?下面我們就來看看通過設(shè)置單元格邊框來實現(xiàn)的教程,需要的2016-11-11
Excel 實現(xiàn)圖標(biāo)信息聯(lián)動制作的方法
這篇文章主要介紹了Excel 實現(xiàn)圖標(biāo)信息聯(lián)動制作的方法的相關(guān)資料,需要的朋友可以參考下2016-11-09Excel 制作滑動控制聯(lián)動(Excel數(shù)據(jù)圖表)具體實現(xiàn)方法
這篇文章主要介紹了Excel 制作滑動控制聯(lián)動(Excel數(shù)據(jù)圖表)具體實現(xiàn)方法的相關(guān)資料,需要的朋友可以參考下2016-11-09- Excel2016表格中畫斜線表頭的方法,Excel2016表格中,如何繪畫斜線表頭呢,下面小編就為大家介紹在excel表格中如何制作傾斜的表頭方法,一起來看看吧2016-10-28
- excel怎么制作三角型堆積柱形圖表?excel中想制作對比柱形圖,但是想將柱形換成三角形,該怎么換呢?下面我們就來看看詳細(xì)的設(shè)置方法,需要的朋友可以參考下2016-10-26
- excel怎么制作三維簇狀柱形圖?excel表格中想插入柱狀圖,該怎么插入呢?下面我們就來看看excel中制作柱形圖的詳細(xì)教程,很簡單,需要的朋友可以參考下2016-10-25
Excel怎么制作分布在縱坐標(biāo)兩側(cè)的水平柱狀圖?
Excel怎么制作分布在縱坐標(biāo)兩側(cè)的水平柱狀圖?excel平時繪制的柱狀圖都是豎著的,現(xiàn)在想繪制水平柱狀圖,該怎么繪制呢?下面我們就來看看詳細(xì)的教程,需要的朋友可以參考下2016-10-25