在本文中，基于这两篇文章中介绍的技巧，我们将绘制一个圆形轨迹，如图1所示。

图1

下图是我们在图中使用的数据，本文仍在使用。

图2。

首先，定义一些名称。

名称：n

参考位置：=25。

名称：ndx。

参考位置：=1。

名称：圆形_x

参考位置：=OFFSET(Sheet1！$C$2，0，0，n，1)

名称：圆圈_y

参考位置：=OFFSET(Sheet1！D$2，0，0，n，1)

名称：点_圆_x

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

名称：点_圆_ y。

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

图3显示了我们在《Excel图表学习06：画圆》中画的圆。

图3。

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

图4

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

接下来，让我们添加数据系列。

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

图5

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

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

二等兵我和龙一样

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

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

暗纳米作为名称

像龙一样暗淡

Const DELAY_FACTOR=1000

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

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

如果…就会结束

如果运行，那么

运行=假

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

出口接头

如果…就会结束

运行=真

申请。光标=xlNorthwestArrow

设置nm=应用。名称

做

如果运行=假，则退出

i=i 1

如果我25，那么我=1

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

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

环

申请。光标=xlDefault

运行=假

设置纳米=无

末端接头

退出“设计模式”，点击命令按钮，可以看到圆的轨迹运动动画，如图6所示。

图6

细心的读者可能会注意到，点的轨迹似乎不是圆的，这是由于我们在绘制时使用的数据点较少造成的。如果加上一些数据，效果会更好。