excel图表怎么绘制轨迹动画

Question

如题所述

Answer 1

在之前的文章中，我们使用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