excel图表动画绘制圆
发布时间：2022-04-18 18:16:22
我们使用XY散点图绘制了一个圆。现在，在这个圆的基础上，我们让绘制过程动起来，如图1所示。
图1
下图2是我们在《Excel图表学习06：画圆》中所使用的数据，本文仍然使用这些数据。
图2
首先，定义一些名称。
名称：n
引用位置：=26
名称：ndx
引用位置：=1
名称：circle_x
引用位置：=OFFSET(Sheet1!$C$2,0,0,ndx,1)
名称：circle_y
引用位置：=OFFSET(Sheet1!$D$2,0,0,ndx,1)
图3为我们在之前学习中绘制的圆。
图3
选择已经绘制的圆系列，单击右键，选取“设置数据系列格式”。在弹出的“设置数据系列格式”对话框中，将“数据标记选项”设置为“无”，将“线条颜色”设置为“无线条”。此时，图表如图4所示。
图4
我们看到，已经绘制的圆不见了，这是我们的设置造成的，实际上这个圆仍然存在于绘图区中。
下面，我们来添加数据系列。
选中绘图区，在“图表工具”选项卡组中选择“设计”选项卡下的“选择数据”命令，添加数据系列circle_0，如图5所示。
图5
注意，如果此时在绘图区看不到任何东西，那么需要设置数据系列“circle_0”的线条颜色为“实线”。
在工作表中插入一个ActiveX控件命令按钮，双击该按钮并输入下面的代码：
Private SubCommandButton1_Click()
Dim i As Long
Dim nm As Names
Dim z As Long
Const DELAY_FACTOR = 1000
Application.Cursor = xlNorthwestArrow
Set nm = Application.Names
Do
i = i + 1
nm.Add “ndx”, (i Mod [n])
If i > 24 Then Exit Do
For z = 1 To DELAY_FACTOR: DoEvents:Next z
Loop
Application.Cursor = xlDefault
Set nm = Nothing
End Sub
退出“设计模式”，然后单击命令按钮，就可以看到绘制圆的动画过程了，如图6所示。
图6
0
投稿猜你喜欢
相信不少用户都已经安装上了Windows11系统，但是有许多用户针对Windows11的开始菜单在中间非常的不习惯，想要把开始菜单移动到左边- 1、双击Word文档中某页的页眉、页脚或页边距。2、选择页码。3、在所选页码上方显示的微型工具栏上，请执行下列操作之一：-要更改字体，请单击
- 交管12123如何绑定非本人机动车？有时候借的朋友的车然后被扣分付款，我们要用自己的驾驶证去绑定朋友的机动车，要怎么绑定呢，下面就给大家分享
- Win10专业版电脑系统损坏基本上都要进入bios设置U盘启动利用U盘工具进行系统重装，那么Win10专业版电脑bios怎么设置U盘启动呢？
- 我们在使用WPS表格的时候有时候需要把单元格合并在一起，怎样合并单元格呢?方法比较简单，小编这里给刚学习WPS表格的朋友简单介绍一下!希望有
- 在word文档中，想要输入像古代哪样的竖排文字该如何设置呢?下面就跟小编一起来看看吧。word文档输入竖排文字的步骤打开word,点击 页面
- 大家都知道我们点击删除某些程序或者文件后， 系统会先将其放在回收站，防止用户不小心将重要的程序或文件误删。但是有用户发现自己的回收站不见了，
- 会员wuchunlintyut 的提问：“我想想把下图中上下两部分做成左右往复会动的 动的时候黑线部分交叉，就像两个刷子在来回刷”问题剖析：
- 基于手机功能的丰富与多样，很多软件在手机中的使用越加普遍，对于WPS Office手机版更是如此，那么你知道怎样在手机端进行文档投影吗？今天
- 在当今社会中，经常需要用到Excel进行办公，或许有些并不太熟悉Excel的朋友不会使用分类汇总，下面是由小编分享的excel使用分类汇总公
- Excel办公软件是每个办公人员的必备工具之一,Excel功能是非常强大的。但是,如何让它灵活运用，今天小编就为大家介绍在excel表格中怎
- 在升级到iOS11之后，控制中心被重新设计，变得更简单易用，而且支持自定义。但是细心的小伙伴会发现原来设置内的屏幕显示与亮度控制开关已经消失
- 有许多在使用Win10专业版的用户都遇到了升级出错的情况，遇到这种升级错误的情况要如何修复呢？下面小编就为大家带来了解决方法，希望可以帮助到
- 在编辑文档的过程中，我们习惯于将第一行缩进两个字符，这样会更加规范。然而，在某些情况下，由于字体大小的不一致，缩进是不一致的。例如，当标题和
- 在Excel表中，会遇到输入一些符号的时候，比如输入平方、立方、℃等一些特殊符号，我们该怎样输入最为方便呢？第一：通过符号栏输入在输入一些键
- win10 9926自动更新到10041版本后怎样连接网络？相信很多朋友也碰到这样的问题，就是升级到10041版本后，网络连接图标上是一个大
- Excel中怎么利用PowerPivot实现跨表的的关联查询？在做仓库进销存的是偶需要用到这个功能，今天我们就来看看Excel中PowerP
- 使用Word进行文字编辑的时候，偶尔会有存在多余空行，或不经意间留下的空格，影响整体文本排版及阅读的情况。或是有时从其他地方复制过来的文本，
- 今天微软发布了Win10最新预览版9879，比较9860版本中新增了7000多项改变和全新的通知中心，今天发布的新版本（9879）主要是基于
- 的数据，要求按年月汇总入职人数。对于这样的汇总要求，在实际工作中还是很常见的。一般大家都习惯用公式解决问题，但是作为本题来说，一是数据量比较
