我們使用XY散點圖繪制了一個圓。現在，在這個圓的基礎上，我們讓繪制過程動起來，如圖1所示。
圖1
下圖2是我們在《Excel圖表學習06：畫圓》中所使用的數據，本文仍然使用這些數據。
圖5
注意，如果此時在繪圖區看不到任何東西，那么需要設置數據系列“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
退出“設計模式”，然后單擊命令按鈕，就可以看到繪制圓的動畫過程了，如圖6所示。
圖6
