在前一篇文章中，我们使用XY散点图绘制了圆形运动轨迹动画。因为使用的数据基于工作表中的25个数据，所以数据量太小，所以运动轨迹看起来不圆。

本文还制作了圆周运动轨迹动画，但不是使用工作表中的数据，而是使用由定义的名称生成的数据。

为了方便绘图，我们使用实践中已经使用的绘图区域作为模板。

首先，定义一些名称。

名称：n

参考位置：=200。

名称：ndx。

参考位置：=1。

姓名：t

参考位置：=(ROW(OFFSET(Sheet1！$A$1，(n))-1)*(2*PI()/(n-1))

名称：圆形_x

参考位置：=COS(((ROW)(OFFSET(sheet 1！$A$1、50))-1)*(2*PI()/(50-1)))

名称：圆圈_y

参考位置：=SIN(((ROW)(OFFSET(sheet 1！$A$1、50))-1)*(2*PI()/(50-1)))

名称：circle_path_x

参考位置：=COS(t)

名称：圆_路径_y

参考位置：==SIN(t)

名称：点_圆_x

参考位置：=INDEX(circle_path_x，ndx)。

名称：点_圆_ y。

参考位置：=INDEX(circle_path_y，ndx)。

选择绘图区域，在“图表工具”选项卡组的“设计”选项卡下选择“选择数据”命令，添加数据系列dot_circle，如图1所示。

图1

结果图表如图2所示。

图2。

选择绘制的圆系列，单击鼠标右键，然后选择“设置数据系列格式”。在弹出的“设置数据系列格式”对话框中，将“数据标记选项”设置为“无”，将“线条颜色”设置为“无线条”。

我们可以看到画的圆不见了，这是我们的设置造成的。事实上，这个圆圈仍然存在于绘图区域中。

接下来，让我们添加一个用于绘制圆形轨迹的数据系列。

选择绘图区域，在“图表工具”选项卡组的“设计”选项卡下选择“选择数据”命令，添加数据系列dot_circle，如图5所示。

图3。

请注意，如果此时在绘图区域看不到任何东西，则需要将数据系列“dot_circle”的线条颜色设置为“实线”。

我们将“数据标记选项”设置为“内置——圆”，如图4所示。

图4

在工作表中插入一个ActiveX控件命令按钮，将其标题更改为“循环轨迹移动”，双击该按钮并输入以下代码：

二等兵我和龙一样

私有布尔值作为布尔值运行

私有子命令按钮1 _单击()

暗纳米作为名称

像龙一样暗淡

Const DELAY_FACTOR=125

如果命令按钮1。Caption=“圆形轨迹运动”然后。

命令按钮1。Caption=“停止运动”。

如果…就会结束

如果运行，那么

运行=假

命令按钮1。Caption=“圆形轨迹运动”。

出口接头

如果…就会结束

运行=真

申请。光标=xlNorthwestArrow

设置nm=应用。名称

做

如果运行=假，则退出

i=i 1

如果我800，那么我=1

nm。添加“ndx”，(i Mod [n]) 1

对于z=1至延迟因子：多事件3360下一个z

环