摘要： 本文主要介绍如何将动画应用于商业图表，如下图1所示。 图1
制作图表的示例数据如下图2所示的工作表：
图2
在工作表中放置几个表单控件并设置相应的格式，...
本文主要介绍如何将动画应用于商业图表，如下图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
excel柱状图中添加目标线
要制作的图表需求如下： 每组是一年，如2007年、2006年、2005年等等，以便于可以比较前几年的数据 在每组的两个数据中，一个是收益垂直柱状条，一个是综合比率柱状条，这两个柱状条彼此不相关（即一个的上涨不会影响另一个） 对于这些柱状条中的每一个，都需要一个目标指示线，横跨柱状条的小的水平直线（或者如果没有达到
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
excel图表怎么创建面板图
引子：这是在peltiertech.com上学到的一个技巧（《BrokenY Axis in an Excel Chart》）。如果为一组数值差异很大的数值创建图表，特别是这组数值中某一个数值特别大时，创建的图表很不协调，也掩盖了其他数值。当然，可以使用对数数值或者将大的数组折断来解决这样的问题，但作者推荐使用面板图。
