我們使用XY散點(diǎn)圖繪制了一個圓。現(xiàn)在，在這個圓的基礎(chǔ)上，我們讓繪制過程動起來，如圖1所示。
圖1
下圖2是我們在《Excel圖表學(xué)習(xí)06：畫圓》中所使用的數(shù)據(jù)，本文仍然使用這些數(shù)據(jù)。
圖5
注意，如果此時在繪圖區(qū)看不到任何東西，那么需要設(shè)置數(shù)據(jù)系列“circle_0”的線條顏色為“實(shí)線”。
在工作表中插入一個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
