excel图表绘制轨迹动画
发布时间:2023-03-08 15:37:17
本文,我们将在这两篇文章介绍的技巧的基础上,实现绘制圆形轨迹运动,如图1所示。
图1
下图2是我们在图中所使用的数据,本文仍然使用这些数据。
图2
首先,定义一些名称。
名称:n
引用位置:=25
名称:ndx
引用位置:=1
名称:circle_x
引用位置:=OFFSET(Sheet1!$C$2,0,0,n,1)
名称:circle_y
引用位置:=OFFSET(Sheet1!$D$2,0,0,n,1)
名称:dot_circle_x
引用位置:=INDEX(circle_x,ndx)
名称:dot_circle_y
引用位置:=INDEX(circle_y,ndx)
图3为我们在《Excel图表学习06:画圆》中绘制的圆。
图3
选择已经绘制的圆系列,单击右键,选取“设置数据系列格式”。在弹出的“设置数据系列格式”对话框中,将“数据标记选项”设置为“无”,将“线条颜色”设置为“无线条”。此时,图表如图4所示。
图4
我们看到,已经绘制的圆不见了,这是我们的设置造成的,实际上这个圆仍然存在于绘图区中。
下面,我们来添加数据系列。
选中绘图区,在“图表工具”选项卡组中选择“设计”选项卡下的“选择数据”命令,添加数据系列dot_circle,如图5所示。
图5
注意,如果此时在绘图区看不到任何东西,那么需要设置数据系列“dot_circle”的线条颜色为“实线”。
在工作表中插入一个ActiveX控件命令按钮,将其标题更改为“圆形轨迹运动”,双击该按钮并输入下面的代码:
Private i As Long
PrivateblnRunning As Boolean
Private SubCommandButton1_Click()
Dim nm As Names
Dim z As Long
Const DELAY_FACTOR = 1000
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 > 25 Then i = 1
nm.Add “ndx”, (i Mod [n]) + 1
For z = 1 To DELAY_FACTOR: DoEvents:Next z
Loop
Application.Cursor = xlDefault
blnRunning = False
Set nm = Nothing
End Sub
退出“设计模式”,然后单击命令按钮,就可以看到圆的轨迹运动的动画了,如图6所示。
图6
细心的读者可能会注意到,圆点的运动轨迹似乎并不圆,这是由于我们绘制时使用的数据点较少造成的,增加一些数据,效果会更好。
猜你喜欢
- 汇报业绩的时候,经常一堆数据聚集在一起,一边说一边指指点点,有时候还容易看错行,那么怎么办呢?下面小编就为大家介绍excel如何聚焦显示查询
- Office套件作为必不可少的办公软件,但是价格不菲,大多数人都会选择破解版,但其实除了破解版,使用组织账号也可以作为正版使用。组织账号一般
- word文档的属性是指该文件的信息摘要,包括标题、作者、用途、单位、关键词、类别和主题等,在传递和使用文档时通过查看文档的属性便可以更好地了
- 在使用Excel处理大数据时,经常需要对重复数据进行去重处理,新手朋友可能就是一条一条的删。其实找对方法了就简单了,我们只需要保留唯一值,而
- 在Word文档中输入的汉字与英文字母、数字之间,一般都存在一小段间隔,无法删除或者调整大小,其实这是Word默认启用的一个功能,可以将它关闭
- 在Excel中录入数据后,我们一般用高级筛选来处理删除重复的记录,Excel2007保留了这个功能,同时又增加了一个“删除重复项”按钮,使操
- 相信大家应该对于迅捷PDF转换器并不陌生吧,你知道Wordy怎么转PPT吗?小编来告诉你,利用迅捷PDF转换器就能轻松搞定Word转PPT了
- 翻译应用由苹果官方在 iOS 14 中正式推出,向所有苹果用户提供免费、便捷且强大的翻译功能。在 iOS 15 中,该应用得到了进一步改进,
- 用EXCEL软件打开文件依次点击“文件/另存为”,会弹出一个另存为对话框“保存类型”选择dat,输入文件名,点击保存即可如何保存后的文件打开
- word是我们常用的办公软件,有时遇见一些生僻字不知道念什么,怎么拼写,那么word2007中如何输入生僻字?下面小编带来word生僻字输入
- 方法一:在输入文字时想另起一行时,按alt+enter键;方法二:输入好文字——单击单元格——右击——设置单元格格式——自动换行;如图:
- word2007输入英文字母都是大写的(大写键没打开)怎么办?word2007有时候出现一个怪异情况,没有打开caps lock键,但输入的
- 许多用户会定期清理计算机系统中的垃圾文件。一般来说,他们可以在磁盘属性中使用磁盘清理功能。但是,有些用户报告在打开磁盘属性后没有磁盘清理选项
- 有的人觉得在Word 2003中,菜单中的很多功能是不常用到的,与其每次单击某菜单按钮后菜单显示非常长,倒不如把自己不常用到的功能折叠起来,
- 小编在这里教一下大家excel中选择性粘贴快捷键,学会了这个方法后可以大大提高Excel的中工作效率哦。Excel技巧 excel中选择性粘
- Excel中求和操作是经常都会用到的,如果你只会sum求和函数,你会发现很多求和操作无法完成,因为还有很多复杂的求和操作,下面一起来学习几个
- 在wps演示中使用模板制作文稿的方法:新建一个WPS文件并打开。在菜单栏中找到设计栏,选择适合主题内容和风格的模板。可直接选择模板栏中显示的
- 我们在操作Word文档时,如果遇到空白下方打下划线的时候该怎么打呢,相信这个难题很多朋友都遇到了吧,下面就是介绍如何在Word文档里空白下划
- 在做word文档的时候为了使得它和PPT一样丰富多彩,就可以给它插入背景,使得word文档的演示效果更加的丰富。那么下面就由小编给大家分享下
- 1.选定要添加圈号的字符。如果是汉字、全角的符号、数字或字母,只能选择一个字符;如果是半角的符号、数字或字母,最多可选择两个,多选的将自动被