excel圖表怎么繪制軌跡動畫

excel圖表怎么繪制軌跡動畫

在之前的文章中，我們使用XY散點圖繪制了圓形運動軌跡動畫。由于使用的數據是基于工作表中的25個數據，數據量太少，所以運動軌跡看起來并不圓。

本文也是制作圓形運動軌跡動畫，但不使用工作表中的數據，而是使用由定義的名稱所生成的數據。

為了方便繪制，我們使用實用中已經使用的繪圖區作為模板。

首先，定義一些名稱。

名稱：n

引用位置：=200

名稱：ndx

引用位置：=1

名稱：t

引用位置：=(ROW(OFFSET(Sheet1!$A$1,,,n))-1)*(2*PI()/(n-1))

名稱：circle_x

引用位置：=COS((ROW(OFFSET(Sheet1!$A$1,,,50))-1)*(2*PI()/(50-1)))

名稱：circle_y

引用位置：=SIN((ROW(OFFSET(Sheet1!$A$1,,,50))-1)*(2*PI()/(50-1)))

名稱：circle_path_x

引用位置：=COS(t)

名稱：circle_path_y

引用位置：==SIN(t)

名稱：dot_circle_x

引用位置：=INDEX(circle_path_x,ndx)

名稱：dot_circle_y

引用位置：=INDEX(circle_path_y,ndx)

選擇繪圖區，在“圖表工具”選項卡組中選擇“設計”選項卡下的“選擇數據”命令，添加數據系列dot_circle，如圖1所示

圖1

得到的圖表如圖2所示。

圖2

選擇已經繪制的圓系列，單擊右鍵，選取“設置數據系列格式”。在彈出的“設置數據系列格式”對話框中，將“數據標記選項”設置為“無”，將“線條顏色”設置為“無線條”。

我們看到，已經繪制的圓不見了，這是我們的設置造成的，實際上這個圓仍然存在于繪圖區中。

下面，我們再來添加用于繪制圓形軌跡的數據系列。

選中繪圖區，在“圖表工具”選項卡組中選擇“設計”選項卡下的“選擇數據”命令，添加數據系列dot_circle，如圖5所示。

圖3

注意，如果此時在繪圖區看不到任何東西，那么需要設置數據系列“dot_circle”的線條顏色為“實線”。

我們將其“數據標記選項”設置為“內置——圓形”，如圖4所示。

圖4

在工作表中插入一個ActiveX控件命令按鈕，將其標題更改為“圓形軌跡運動”，雙擊該按鈕并輸入下面的代碼：

Private i As Long

PrivateblnRunning As Boolean

Private SubCommandButton1_Click()

Dim nm As Names

Dim z As Long

Const DELAY_FACTOR = 125

If CommandButton1.Caption = “圓形軌跡運動” Then

CommandButton1.Caption = “停止運動”

End If

If blnRunning Then

blnRunning = False

CommandButton1.Caption = “圓形軌跡運動”

Exit Sub

End If

blnRunning = True

Application.Cursor = xlNorthwestArrow

Set nm = Application.Names

Do

If blnRunning = False Then Exit Do

i = i + 1

If i > 800 Then i = 1

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

For z = 1 To DELAY_FACTOR: DoEvents:Next z

Loop

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

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