excel图表怎么绘制轨迹动画
时间:2023-09-11 18:29:20
在之前的文章中,我们使用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
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
利用EXCEL函数写出这样漂亮的公式
Windows7如何查看网页星号密码?
![](https://img.aspxhome.com/file/2023/27/a230979_0s.jpg)
想让你的Mac桌面清爽整洁?试试Mac临时文件存储小助手Yoink
![](https://img.aspxhome.com/file/2023/6/a211756_0s.jpeg)
Win11如何开启高对比度的主题?Win11开启高对比度的主题方法
![](https://img.aspxhome.com/file/2023/2/a284255_0s.jpg)
Win7中CMD命令提示符输入文字出现乱码的解决方法
![](https://img.aspxhome.com/file/2023/2/a291825_0s.jpg)
Win10太阳谷图标还原成旧的图标操作方法步骤
![](https://img.aspxhome.com/file/2023/1/a281719_0s.png)
Win7纯净版32位系统下控制面板中“设备和打印机”打不开怎么处理?
![](https://img.aspxhome.com/file/2023/26/a229336_0s.jpg)
就可以看到数据导入成功了
Win7系统无Internet访问怎么办?
![](https://img.aspxhome.com/file/2023/27/a230511_0s.jpg)
BurnAware光盘怎么多次刻录?
在WPS文字中怎么批量完成大小写转换
什么系统最好用?深度教你选择最好用实用的系统
excel利用VBA生成无重复无空值的数据有效性下拉列表
![](https://img.aspxhome.com/file/2023/9/a156129_0s.jpg)
win7系统怎么禁用offline files服务
![](https://img.aspxhome.com/file/2023/4/a311390_0s.jpg)
win10电脑安装固态硬盘后频繁卡死怎么办
![](https://img.aspxhome.com/file/2023/4/a309757_0s.png)
在word中删除表格的两种方法
win10gpu缩放黑屏_win10gpu缩放黑屏解决方法
![](https://img.aspxhome.com/file/2023/3/a294952_0s.jpg)
Word文本框如何去掉?
![](https://img.aspxhome.com/file/2023/3/a300818_0s.png)
Win10任务栏设置打不开怎么办?Win10任务栏设置打不开的解决方法
![](https://img.aspxhome.com/file/2023/1/52191_0s.png)
WPS 2007:文字换行怪问题巧解决!
![](https://img.aspxhome.com/file/2023/3/a167233_0s.jpg)