excel圖表動畫繪制圓

excel圖表動畫繪制圓

我們使用XY散點圖繪制了一個圓。現(xiàn)在，在這個圓的基礎(chǔ)上，我們讓繪制過程動起來，如圖1所示。

圖1

下圖2是我們在《Excel圖表學(xué)習(xí)06：畫圓》中所使用的數(shù)據(jù)，本文仍然使用這些數(shù)據(jù)。

圖2

首先，定義一些名稱。

名稱：n

引用位置：=26

名稱：ndx

引用位置：=1

名稱：circle_x

引用位置：=OFFSET(Sheet1!$C$2,0,0,ndx,1)

名稱：circle_y

引用位置：=OFFSET(Sheet1!$D$2,0,0,ndx,1)

圖3為我們在之前學(xué)習(xí)中繪制的圓。

圖3

選擇已經(jīng)繪制的圓系列，單擊右鍵，選取“設(shè)置數(shù)據(jù)系列格式”。在彈出的“設(shè)置數(shù)據(jù)系列格式”對話框中，將“數(shù)據(jù)標記選項”設(shè)置為“無”，將“線條顏色”設(shè)置為“無線條”。此時，圖表如圖4所示。

圖4

我們看到，已經(jīng)繪制的圓不見了，這是我們的設(shè)置造成的，實際上這個圓仍然存在于繪圖區(qū)中。

下面，我們來添加數(shù)據(jù)系列。

選中繪圖區(qū)，在“圖表工具”選項卡組中選擇“設(shè)計”選項卡下的“選擇數(shù)據(jù)”命令，添加數(shù)據(jù)系列circle_0，如圖5所示。

圖5

注意，如果此時在繪圖區(qū)看不到任何東西，那么需要設(shè)置數(shù)據(jù)系列“circle_0”的線條顏色為“實線”。

在工作表中插入一個ActiveX控件命令按鈕，雙擊該按鈕并輸入下面的代碼：

Private SubCommandButton1_Click()

Dim i As Long

Dim nm As Names

Dim z As Long

Const DELAY_FACTOR = 1000

Application.Cursor = xlNorthwestArrow

Set nm = Application.Names

Do

i = i + 1

nm.Add “ndx”, (i Mod [n])

If i > 24 Then Exit Do

For z = 1 To DELAY_FACTOR: DoEvents:Next z

Loop

Application.Cursor = xlDefault

Set nm = Nothing

End Sub

退出“設(shè)計模式”，然后單擊命令按鈕，就可以看到繪制圓的動畫過程了，如圖6所示。

圖6

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應(yīng)法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應(yīng)法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。