excel图表怎么创建动画商业图表
发布时间：2023-03-25 06:42:18
本文主要介绍如何将动画应用于商业图表，如下图1所示。
图1
制作图表的示例数据如下图2所示的工作表：
图2
在工作表中放置几个表单控件并设置相应的格式，如图3所示。
图3
其中，“下拉框”控件的控件格式设置如图3，数据源区域为图2所示工作表的单元格区域A43:A46，所选值链接到单元格B37。
下面的3个选项按钮链接到名为“chart_type”的单元格。
最后的“开启动画”复选框链接到名为“b_animation”的单元格；“开启擦除”复选框链接到名为“b_easing”的单元格。
如图4所示，在单元格区域B33:B39中放置图3中的控件值、设置图表动画的步骤以及图表标题。单元格区域D33:D39中为列B中对应单元格所定义的名称。
图4
其中，单元格B39所定义的名称为一个命名公式：
=INDEX($A$43:$A$46,record_index)
图5列出了工作簿中所有定义的名称：
图5
其中，old和switch_to_record是在运行VBA代码时添加的。
VBA代码如下：
PrivatebFinished As Boolean
PublicSub AnimateChart()
Dim i As Integer
bFinished = False
ThisWorkbook.Names.Add “old”,[chart_values]
ThisWorkbook.Names.Add”switch_to_record”, [record_index].Value
If [b_animation] Then
For i = 1 To [animation_steps]
[step] = i
DoEvents
If bFinished Then Exit For
Next i
End If
bFinished = True
EndSub
PublicSub ChangeChartType()
Const CHART_TYPE_COLUMN = 1
Const CHART_TYPE_LINE = 2
Const CHART_TYPE_AREA = 3
WithWorksheets(“demo”).ChartObjects(1).Chart
Select Case [chart_type]
Case CHART_TYPE_COLUMN
.ChartType = xlColumnClustered
Case CHART_TYPE_LINE
.ChartType = xlLineMarkers
Case CHART_TYPE_AREA
.ChartType = xlArea
End Select
End With
EndSub
其中，ChangeChartType过程关联到选项按钮，用于更改图表类型；AnimateChart过程关联到下拉框，用于实现选择不同数据时的图表动画效果。
最后的效果如下图6所示。
图6
0
投稿猜你喜欢
第一步、首先要有Excel2000，不是就不能玩咯。打开Excel2000之后随便新建一档，然后点击文件→另存为Web页。 &- Excel的PV函数返回投资的现值。现值为一系列未来付款的当前值的累积和。例如，借入方的借入款即为贷出方贷款的现值。 &nbs
- 1、工具——选项——视图2、取消网格线的勾选（那么除了你设置的边框外，其他的都没有直线和竖线）3、取消行号和列标（整个左边和上边的数字都会没
- word软件中的自选图形由多种多样的几何图形构成，它比图片更灵活多变，利用自选图形，可以将图形和文字结合在一起来说明。自选图形的种类非常多，
- Word怎么更改项目符号的列表级别？相信很多有用户对于Word并不陌生，而在word文档中使用项目符号可以明确内容的结构，让表达更加清晰，但
- Win10虚拟键盘是一个非常容易使用的软键盘。当键盘出现故障或暂时没有键盘时，这是非常重要的。许多孩子不知道如何打开它或有这个功能。让我们看
- Excel图表排除重复值计算个数，请你来补充公式！问题情境如下样表：（图一）在不同的日期段，项目参与人不同，但参与人可以参与多个日期段，所有
- 在Word2003中制作的Word表格往往需要在左上角的单元格中画斜线表头，以便在斜线单元格中添加表格项目名称。在Word2003中制作的W
- 国外网友发现MSDN网站上存在一个漏洞，任何人都可以直接下载Windows、Office等资源，只要你进入MSDN网站，浏览你想要的资源，然
- 在Excel里排版中,有时遇到行高和列宽的大小不一致,及影响美观效果,整体布局。那么excel的行高和列宽怎么调节一致?下面小拜年就为大家详
- 很多用户在使用win10系统的时候，突然出现Bad pool caller蓝屏错误代码，这是怎么回事呢？该类问题一般是由损坏或过时的驱动程序
- 今日有已经更新win10 20h2的用户跟小编说自己的电脑更新之后一开机内存竟然高达60％，被吓了一跳，试过很多种方法也没有解决，这该怎么办
- 在使用Word办公软件编辑文档的时候，难免会碰到输入数学公式的情况，如果能够正确的输入数学公式，那么可以更加直观的体现公式的含义。现在我们需
- excel表格怎么查看任意一网页中的数据？想要在excel表格中看到任意一网页的数据，该怎么将网页数据导入excel中呢？下面我们就来看看将
- 在Word2010中，文字的调整技巧，是包括多方面的，可以是文字颜色的变化，可以是文字字体的改变，还可以是文字大小的修整，总之想要怎么改，要
- 我们在使用Excel打印的时候,有时候横向的项目比较多,一般采取横向打印，下面小编为大家介绍excel横向打印的自动排版，来看看吧利用exc
- 如何把文档当前页的页码取消，而后面的都保留着，我只会一取消把文档所有的页码都取消了用‘分页符’和各节之间页眉页脚的链接设置可以实现，具体操作
- 如何简单快速输入人民币符号￥，小编收集并整理了几种方法！QQ拼音输入法操作步骤：直接输入人民币的拼音“renminbi”即可。Word输入法
- word设置首行缩进2字符的方法：选中全文，然后进入“开始”选项卡，然后点击“段落”选项卡中的小按钮，如下图红色圈；然后在“段落”窗口中“特
- 这里举一个求平均值的例子，比如求学生各门课的平均成绩，我们用AVERAGE函数，此时会发现单元格中只显示公式，而不显示求得的结果遇到这种情况
