Excel中的许多对象都可以响应事件，这其中包括了Excel程序自身的事件，也包括了我们在Excel中开发VBA应用程序时在对象上所附加的事件处理程序，如按钮的响应事件、单元格被选中的事件、工作表被激活的事件等。大多数的事件处理程序我们都耳熟能详，本文在此重点介绍一下Excel中的图表事件。

　　在Excel中如何快速地创建图表

　　 虽然Excel可以接受任何类型和格式的数据，但是为了方便创建图表，我们通常都会创建一个相对连续的数据区域，并给定一些有意义的值，好的数据组织将有利于生成更加完美的图表。这里有一个例子，分别对A、B、C、D、E五个栏目按Alpha和Beta两种类别进行统计。

　　在Excel中生成图表非常简单，选中上述单元格区域，选择Insert选项卡中Charts部分的图表类型，Excel会自动按照你所选的图表类型为你生成图表，如下图。

　　图片看不清楚？请点击这里查看原图（大图）。

　　 选择Design选项卡，在Chart Layouts部分选择不同的布局，可以丰富图表的内容，如添加图表的名称、设置图例的显示位置等。通过Excel提供的图表功能，我们可以给图表添加许多元素，按照 Excel自带的说明文档上的介绍，一个相对较完整的图表应该包含7个单元。

1. 图表显示区域。 　　2. 数据透视图区域。 　　3. 数据透视图中用于显示数据图表的数据点。 　　4. 数据透视图中的坐标值。 　　5. 图例区域。 　　6. 图表的标题。 　　7. 用于作为tooltip的数据标签，对数据的解释。

　　 按照上述方法创建的图表默认是嵌套在Excel工作表中的，我们也可以创建一个独立的图表在Excel中指定的地方显示。在Design选项卡中找到Location部分，选择Move Chart，弹出的对话框如下图所示，选择New sheet，并定义一个有意义的名称，点击OK，此时Excel会在一个新的sheet中创建图表。这里有一个快速创建图表的方法，选中要创建图表的单元格区域，直接按F11，Excel会按照默认的选项在新的sheet中生成图表。在新 sheet中生成的图表可以在VBA中作为对象来进行访问，同时也可以编写事件处理程序，稍后会介绍。

　　图片看不清楚？请点击这里查看原图（大图）。　

　　为什么要使用图表事件

　　 使用图表事件可以更加方便用户使用我们编写的VBA应用程序。例如，我们可以给图表添加一个select事件，当用户点击图表数据透视图中的数据点时，为用户做这样一些事情：

　　显示一个提示信息

　　提取图表中的信息并放置到工作表中。

　　激活另外一个图表或工作表。

　　识别一个数据点进行数据分析。

　　 在接下来的内容中，我会向大家介绍Excel中图表对象的一些常用事件的使用方法，并会给出相应的示例。

　　如何添加图表事件

　　 与其它的VBA控件类似，要想为图表对象添加事件，必须首先进入到Excel的Visual Basic 编辑器。在上图中，右键点击Chart4选项卡（在Excel窗体的下端），选择“View Code”，即可打开 Visual Basic编辑器。或者在“开发工具”选项卡中直接点击Visual Basic按钮。如果是从当前图表所在的标签进入的Visual Basic编辑器，则Visual Basic编辑器窗口中默认打开的是当前图表的Code窗体，在Code窗体的顶部有两个下拉列表，在左边的下拉列表中选择Chart，右边的下拉列表中即显示了Chart对象支持的所有事件名称，默认是Active事件，即Chart被激活时所触发的事件。

　　图片看不清楚？请点击这里查看原图（大图）。

　　 Chart对象支持以下这些事件：

　　Active：当Chart对象被激活时触发。

　　BeforeDoubleClick：鼠标双击前触发。

　　BeforeRightClick：鼠标右键单击前触发。

　　Calculate：使用公式运算时触发。

　　Deactivate：当Chart对象释放激活状态时触发。

　　DragOver：当Chart对象被拖动时触发。

　　DragPlot：当Chart对象中的数据透视图被拖动时触发。

　　MouseDown：鼠标按下时触发。

　　MouseMove：鼠标移动时触发。

　　MouseUp：鼠标按下，然后松开按键时触发。

　　Resize：调整Chart的大小时触发。

　　Select：Chart中的对象被选择时触发。

　　SeriesChange：改变Chart中的图标系列时触发。

　　 下面我着重介绍几个常用事件的使用方法。

　　常用图表事件的使用

　　1. Activate事件

　　 Activate事件在Chart对象被激活时触发。如果为Chart对象的Activate事件编写了如下代码，则在前面所举的示例中，当我们选择Chart4选项卡时，该事件会被触发。

Private　Sub Chart_Activate()
　　　 MsgBox　"Welcome to my Chart!"
End Sub

　　2. Deactivate事件

　　 Deactivate事件在Chart对象被释放激活状态时触发。为Chart对象的Deactivate事件编写如下代码，然后释放Chart4选项卡被激活的状态（如选择其它的Sheet选项卡），事件即被触发。

Private　Sub Chart_Deactivate()
　　　 msg =　"Thanks for viewing the chart."
　　　 MsgBox msg, , ActiveWorkbook.Name
End Sub

　　3. Select事件

　　 使用Select事件可以知道Chart对象的哪一部分被选择了。该事件有三个参数，ElementID 被用来告知Chart对象的哪一部分被选择了，后两个参数Arg1和Arg2则会根据ElementID的不同值传递一些额外的信息，如当Chart对象中的series被选中，则Arg1被用来告知哪一个series被选中了，而Arg2被用来告知被选中的 series中被选中的具体位置。当整个series被选中时，Arg1的值为-1，如果Chart的其它对象被选中，Arg1和Arg2的值为0，此时没有任何附加的信息。下表列出了该事件中三个参数可能的所有值。

Private　Sub Chart_Select(ByVal ElementID As　Long, ByVal Arg1 As　Long, ByVal Arg2 As　Long)
　　　 MsgBox　"Element: "　& ElementID & vbCrLf &　"　 Arg 1: "　& Arg1 _
　　　　　　　 & vbCrLf &　"　 Arg 2: "　& Arg2
End Sub

　　 选择Chart对象中的不同部分，弹出的对话框中会给出相应的信息。注意，当你选择 series时，第一次选中的是整个series对象，此时Arg2的值为-1，再次点击series，选中的是具体的series，此时 Arg2的值为series被选中的point值。下面是经过修改后的事件代码，显示了当Chart对象被选中时的完整信息， Excel定义了很多常量来表示ElementID参数的值。

Private　Sub Chart_Select(ByVal ElementID As　Long, ByVal Arg1 As　Long, ByVal Arg2 As　Long)
　　　 Dim sElement As　String
　　　 Dim sArg As　String
　
　　　 Select　Case ElementID
　　　　　　　 Case xlChartArea
　　　　　　　　　　　 sElement =　"Chart Area"
　　　　　　　 Case xlChartTitle
　　　　　　　　　　　 sElement =　"Chart Title"
　　　　　　　 Case xlPlotArea
　　　　　　　　　　　 sElement =　"Plot Area"
　　　　　　　 Case xlLegend
　　　　　　　　　　　 sElement =　"Legend"
　　　　　　　 Case xlFloor
　　　　　　　　　　　 sElement =　"Floor"
　　　　　　　 Case xlWalls
　　　　　　　　　　　 sElement =　"Walls"
　　　　　　　 Case xlCorners
　　　　　　　　　　　 sElement =　"Corners"
　　　　　　　 Case xlDataTable
　　　　　　　　　　　 sElement =　"Data Table"
　　　　　　　 Case xlSeries
　　　　　　　　　　　 sElement =　"Series "　& Arg1
　　　　　　　　　　　 If Arg2 >　0　Then sArg =　"Point "　& Arg2
　　　　　　　 Case xlDataLabel
　　　　　　　　　　　 sElement =　"Data Label"
　　　　　　　E　　　 sArg =　"Series "　& Arg1
　　　　　　　　　　　 If Arg2 >　0tThen sArg = sArg &　", Point "　& Arg2
　　　　x　　 Case xlTrendline
　　　　　　　　　　　 sElement =　"Trendline"
　　　　　　　　　　　 sArg =　"Series "　& Arg1 &　", Trendline "　& Arg2
　　　　　　　 Case xlErrorBars
　　　　　　　　　　　 sElement =　"Error Bars"
　　　　　　　　　　　 sArg =　"Series "　& Arg1
　　　　　　　 Case xlXErrorBars
　　　　　　　　　　　 sElement =　"X Error Bars"
　　　　　　　　　　　 sArg =　"Series "　& Arg1
　　　　　　　 Case xlYErrorBars
　　　　　　　　　　　 sElement =　"Y Error Bars"
　　　　　　　　　　　 sArg =　"Series "　& Arg1
　　　　　　　 Case xlLegendEntry
　　　　　　　　　　　 sElement =　"Legend Entry"
　　　　　　　　　　　 sArg =　"Series "　& Arg1
　　　　　　　 Case xlLegendKey
　　　　　　　　　　　 sElement =　"Legend Key"
　　　　　　　　　　　 sArg =　"Series "　& Arg1
　　　　　　　 Case xlAxis
　　　　　　　　　　　 sElement = IIf(Arg1 =　1, "Primary ", "Secondary ")
　　　　　　　　　　　 sElement = sElement & IIf(Arg2 =　1, "Category ", "Value ")
　　　　　　　　　　　 sElement = sElement &　"Axis"
　　　　　　　 Case xlMajorGridlines
　　　　　　　　　　　 sElement = IIf(Arg1 =　1, "Primary ", "Secondary ")
　　　　　　　　　　　 sElement = sElement & IIf(Arg2 =　1, "Category ", "Value ")
　　　　　　　　　　　 sElement = sElement &　"Major Gridlines"
　　　　　　　 Case xlMinorGridlines
　　　　　　　　　　　 sElement = IIf(Arg1 =　1, "Primary ", "Secondary ")
　　　　　　　　　　　 sElement = sElement & IIf(Arg2 =　1, "Category ", "Value ")
　　　　　　　　　　　 sElement = sElement &　"Minor Gridlines"
　　　　　　　 Case xlAxisTitle
　　　　　　　　　　　 sElement = IIf(Arg1 =　1, "Primary ", "Secondary ")
　　　　　　　　　　　 sElement = sElement & IIf(Arg2 =　1, "Category ", "Value ")
　　　　　　　　　　　 sElement = sElement &　"Axis Title"
　　　　　　　 Case xlDisplayUnitLabel
　　　　　　　　　　　 sElement = IIf(Arg1 =　1, "Primary ", "Secondary ")
　　　　　　　　　　　 sElement = sElement & IIf(Arg2 =　1, "Category ", "Value ")
　　　　　　　　　　　 sElement = sElement &　"Axis Display Unit Label"
　　　　　　　 Case xlUpBars
　　　　　　　　　　　 sElement =　"Up Bars"
　　　　　　　　　　　 sArg =　"Group Index "　& Arg1
　　　　　　　 Case xlDownBars
　　　　　　　　　　　 sElement =　"Down Bars"
　　　　　　　　　　　 sArg =　"Group Index "　& Arg1
　　　　　　　 Case xlSeriesLines
　　　　　　　　　　　 sElement =　"Series Lines"
　　　　　　　　　　　 sArg =　"Group Index "　& Arg1
　　　　　　　 Case xlHiLoLines
　　　　　　　　　　　 sElement =　"High-Low Lines"
　　　　　　　　　　　 sArg =　"Group Index "　& Arg1
　　　　　　　 Case xlDropLines
　　　　　　　　　　　 sElement =　"Drop Lines"
　　　　　　　　　　　 sArg =　"Group Index "　& Arg1
　　　　　　　 Case xlRadarAxisLabels
　　　　　　　　　　　 sElement =　"Radar Axis Labels"
　　　　　　　　　　　 sArg =　"Group Index "　& Arg1
　　　　　　　 Case xlShape
　　　　　　　　　　　 sElement =　"Shape"
　　　　　　　E　　　 sArg =　"Shape Number "　& Arg1
　　　　　　　 Case xlNothing
　　　　　　　　　　　 sElement =　"Nothing"
　　　 End　Select
　
　　　 MsgBox sElement & IIf (Len(sArg) >　0, vbCrLf & sArg, "")
End Sub

　　 另外再给出一个Select事件的应用，读者可以自己验证一下。

Private　Sub Chart_Select(ByVal ElementID As　Long, ByVal Arg1 As　Long, _
　　　　　　　　　　　　　　　　　 ; ;　　　　　　　 ByVal Arg2 As　Long)
　　　 If ElementID =　3　And Arg2 >　0　Then
　　　　　　　 With ActiveChart.SeriesCollection(Arg1).Points(Arg2)
　　　　　　　　　　　 .ApplyDataLabels Type:=xlShowValue
　　　　　　　 End　With
　　　　 End　If
End Sub

　　4. MouseUp和MouseDown事件

　　 Select事件在使用的时候有一个缺点，那就是当你重复选择同一个对象时，只有第一次的 Select事件会被触发，而MouseUp事件则是当鼠标按键按下之后在弹起的过程中被响应，它与MouseDown事件的唯一区别就在于事件触发的时间不同，MouseDwon事件是在鼠标按键按下时马上就触发。在有的时候使用MouseUp（或 MouseDown）事件比Select事件更奏效。

　　 先来看看MouseUp事件的参数（MouseDown事件的参数与之相同）。Button参数被用来告知鼠标的哪个按键导致了事件的触发，xlNoButton-无按键，xlPrimaryButton-主按键，xlSecondaryButton-次按键， xlMiddleButton-中间的按键；Shift参数被用来告知当事件被触发时使用了哪些键盘组合键，它有4个基础值，0-没有使用组合键，1-Shift键，2-Ctrl键，4-Alt键，1、2、4三个值任意相加的结果即表示了多种不同的组合键，如 Shift的值为5则表示Shift+Alt的组合键；最后两个参数x和y用于表示当事件触发时鼠标所处的坐标值。

　　 一个示例程序用于显示用户点击Chart对象中的series的具体信息。

Private　Sub Chart_MouseUp(ByVal Button As　Long, ByVal Shift As　Long, ByVal x As　Long, ByVal y As　Long)
　　　 Dim ElementID As　Long, Arg1 As　Long, Arg2 As　Long
　　　 Dim myX As Variant, myY As　Double
　
　　　 With ActiveChart
　　　　　　　 ' Pass x & y, return ElementID and Args
　　　　　　　 .GetChartElement x, y, ElementID, Arg1, Arg2
　
　　　　　　　 ' Did we click over a point or data label?
　　　　　　　 If ElementID = xlSeries Or ElementID = xlDataLabel Then
　　　　　　　　　　　 If Arg2 >　0　Then
　　　　　　　　　　　　　　　 ' Extract x value from array of x values
　　　　　　　　　　　　　　　 myX = WorksheetFunction.Index _
　　　　　　　　　　　　　　　　　 ; ;　　 (.SeriesCollection(Arg1).XValues, Arg2)
　　　　　　　　　　　　　　　 ' Extract y value from array of y values
　　　　　　　　　　　　　　　 myY = WorksheetFunction.Index _
　　　　　　　　　　　　　　　　　 ; ;　　 (.SeriesCollection(Arg1).Values, Arg2)
　
　　　　　　　　　　　　　　　 ' Display message box with point information
　　　　　　　　　　　　　　　 MsgBox　"Series "　& Arg1 & vbCrLf _
　　　　　　　　　　　　　　　　　 ; ;　　 &　""""　& .SeriesCollection(Arg1).Name &　""""　& vbCrLf _
　　　　　　　　　　　　　　　　　 ; ;　　 &　"Point "　& Arg2 & vbCrLf _
　　　　　　　　　　　　　　　　　 ; ;　　 &　"X = "　& myX & vbCrLf _
　　　　　　　　　　　　　　　　　 ; ;　　 &　"Y = "　& myY
　　　　　　　　　　　 End　If
　　　　　　　 End　If
　　　 End　With
End Sub

　　 修改此程序可以实现很多在Excel图表中与用户的交互功能，如弹出提示框要求用户反复尝试某种操作，或结合MouseMove事件给出图表的自定义提示信息等。

　　 另外还有一种很有用的应用，我们可以通过MouseUp事件来实现图表的详细内容查看功能。即Excel中存在多张主-次关系的图表，当点击主图表中的某项内容时，自动转到相应的次表，在次表中点击Return 区域又回到主表，让用户体验通过选择主表中的不同区域可以查看图表中详细内容的功能。下面是一个示例程序。

Private　Sub Chart_MouseUp(ByVal Button As　Long, ByVal Shift As　Long, _
　　　E　　　 ByVal x As　Long, ByVal y As　Long)
　
　　　 Dim ElementID As　Long, Arg1 As　Long, Arg2 As　Long
　　　 Dim myX As Variant
　
d　　 With ActiveChart
　　　　　　　 ' Pass x & y, return ElementID and Args
　　　　　　　 .GetChartElement x, y, ElementID, Arg1, Arg2
　
　　　　　　　 ' Did we click over a point or data label?
　　　　　　　 If ElementID = xlSeries Or ElementID = xlDataLabel Then
　　　　　　　　　　　 If Arg2 >　0　Then
　　　　　　　　　　　　　　　 ' Extract x value from array of x values
　　　　　　　　　　　　　　　 myX = WorksheetFunction.Index _
　　　　　　　　　　　　　　　　　 ; ;　　 (.SeriesCollection(Arg1).XValues, Arg2)
　
　　　　　　　　　　　　　　　 ' Don't crash if chart doesn't exist
　　　　　　　　　　　　　　　 On　Error　Resume　Next
　　　　　　　　　　　　　　　 ' Activate the appropriate chart
　　　　　　　　　　　　　　　 ThisWorkbook.Charts("Chart "　& myX).Select
　　　　　　　　　　　　　　　 On　Error　GoTo　0
　　　　　　　　　　　 End　If
　　　　　　　 End　If
　　　 End　With
End Sub

　　 其中myX变量保存了当前主表中被选中的series的值，然后通过ThisWorkbook.Charts ("Chart " & myX).Select方法在整个Excel工作簿中查找名称与之相对应的Chart对象，并选中它。你完全可以自己编写名称匹配的算法，然后自动选中要查看的图表，或者采用ThisWorkbook,Sheets().Select方法选中要查看的工作表等等。

　　 其它图表事件读者可以自己去尝试，它们在实际应用中使用得不是很多，而且相对来说使用都比较简单，这里我就不再一一给出例子了。下面重点说一下在Excel中如何使用内嵌的图表事件。

　　Excel中的内嵌图表事件

　　 其实不单单指图表对象的内嵌事件，与单纯的VB语言一样，Excel中的VBA也是支持事件内嵌应用的，它支持所有VBA对象的内嵌事件编程。

　　 什么是事件的内嵌？举个简单的例子来说明这一点。在VBA应用中，我们为工程里所有需要的对象一一编写事件处理程序，例如按钮的单击事件、下拉列表的选择事件，以及图表控件的激活、选择、鼠标单击事件等，但是在很多情况下，这些对象的事件处理程序完成的都是同一件工作，特别是在图表控件的MouseUp事件中，当事件触发时我们只想给用户一个包含详细内容的提示信息，这样的话如果给工程里所有的图表对象都添加一样的事件处理程序就显得有些过于繁琐了，而且更新和维护代码不方便。有没有一个简单的办法来实现这一功能呢？内嵌事件可以实现这一点。

　　 Excel的VB编辑器中列出了已有的对象目录，包括Chart对象、Sheet对象、ThisWorkbook等，如果含有Moudle，则会包含Moudle对象，这些对象在VBE（Visual Basic Editor）的工程资源管理器窗体中被列出来，该窗体在VBE的右侧，如果没有显示，可以通过“视图-工程资源管理器”菜单来显示它。在对象的属性窗口中可以修改对象的名称，属性窗体默认在工程资源管理器窗体的下方，可以通过“视图-属性窗口 ”菜单来显示它。双击对象名称可以打开代码窗体并给该对象编写相应的代码。这些操作与VB 6的IDE编辑器类似，如果读者对VB很熟悉的话，这一部分对你来说应该不会陌生。除此之外，我们还可以通过“插入 ”菜单在工程中加入用户窗体、模块和类模块。使用类模块来定义全局对象，从而实现内嵌事件。

　　 先介绍一下Option Explicit语句。

　　 VBA是一种脚本语言，与其它许多的脚本语言类似（如常见的javascript语言），它是一种解释性的语言，在执行前不需要进行编译，而且变量或对象在使用前不必严格进行类型定义，这是一种弱类型的语言。然而一种好的编程习惯是要求变量或对象在使用前是经过类型确认的，这样在今后的代码维护中也会方便一些，其他人在阅读你的代码时也会显得思路清晰。VBA默认不要求严格定义变量或对象，但是我们可以通过Option Explicit语句来改变这一点，在模块或类模块代码的第一行写上这行语句，则以后的代码必须遵循变量或对象先定义后使用的规则。可以通过在VBE中选择“工具-选项”，勾选“要求变量声明”来让Excel自动为你加上这行代码。

　　 我们要求E内嵌事件程序都在Option Explicit语句之后编写代码，这样可以避免对象过多时混淆定义，减少编程时不必要的错误。

　　 接下来开始编写内嵌事件处理程序。

　　1. 在工程中添加新的类模块，取名为CEventChart，编写如下代码。

Option　Explicit
　
' Declare object of type "Chart" with events
Public WithEvents EvtChart As Chart
　
Private　Sub EvtChart_Select (ByVal ElementID As　Long, _
　　　　　　　 ByVal Arg1 As　Long, ByVal Arg2 As　Long)
　
　　　 MsgBox　"Element: "　& ElementID & vbCrLf &　"　 Arg 1: "　& Arg1 _
　　　　　　　 & vbCrLf &　"　 Arg 2: "　& Arg2
　
End Sub

　　2. 在模块1中添加下面的代码，或者新建一个模块加入下面的代码。

Option　Explicit

Dim clsEventChart As　New CEventChart
Dim clsEventCharts()　 As　New CEventChart

Sub Set_All_Charts()
　　　 ' Enable events for active sheet if sheet is a&n bsp;chart sheet
　　　 If　TypeName(ActiveSheet) =　"Chart"　Then
　　　　　　　 Set clsEventChart.EvtChart = ActiveSheet
　　　 End　If

　　　 ' Enable events for all charts embedded on a she et
　　　 ' Works for embedded charts on a worksheet or ch art sheet
　　　 If ActiveSheet.ChartObjects.Count >　0　Then
　　　　　　　 ReDim clsEventCharts(1　To ActiveSheet.ChartObjects.Count)
　　　　　　　 Dim chtObj As ChartObject
　　　　　　　 Dim chtnum As　Integer

　　　　　　　 chtnum =　1
　　　　　　　 For　Each chtObj In ActiveSheet.ChartObjects
　　　　　　　　　　　 ' Debug.Print chtObj.Name, chtObj.Parent.Name
　　　　　　　　　　　 Set clsEventCharts (chtnum).EvtChart = chtObj.Chart
　　　　　　　　　　　 chtnum = chtnum +　1
　　　　　　　 Next　' chtObj
　　　 End　If
End Sub

Sub Reset_All_Charts()
　　　 ' Disable events for all charts previously enabled to gether
　　　 Dim chtnum As　Integer
　　　 On　Error　Resume　Next
　　　 Set clsEventChart.EvtChart =　Nothing
　　　 For chtnum =　1　To　UBound (clsEventCharts)
　　　　　　　 Set clsEventCharts(chtnum).EvtChart =　Nothing
　　　 Next　' chtnum
End Sub

　　3. 在thisWorkbook中加入下面事件以触发内嵌事件。

Option　Explicit
　
Private　Sub Workbook_SheetActivate (ByVal Sh As　Object)
　　　 Set_All_Charts
End Sub
　
Private　Sub Workbook_SheetDeactivate (ByVal Sh As　Object)
　　　 Reset_All_Charts
End Sub

　　 这样，该Excel中的所有Chart对象都会自动关联上Select事件，并且当事件触发时显示相应的提示信息。

　　 为Chart对象添加内嵌事件时存在四种不同的情况：

　　为同一Worksheet中的所有Chart对象添加内嵌事件，在Worksheet对象所在的code中添加下面两个事件：

Option　Explicit
　
Private　Sub Worksheet_Activate()
　　　 Set_All_Charts
End Sub
　
Private　Sub Worksheet_Deactivate()
　　　 Reset_All_Charts
End Sub

　　为同一Chart标签中的所有Chart对象添加内嵌事件，在Chart标签所在的对象的code中添加下面两个事件：

Option　Explicit
　
Private　Sub Chart_Activate()
　　　 Set_All_Charts
End Sub
　
Private　Sub Chart_Deactivate()
　　　 Reset_All_Charts
End Sub

　　为同一工作簿中的所有Chart对象添加内嵌事件，在当前工作簿的thisWorkbook对象的code中添加下面两个事件。

Option　Explicit
　
Private　Sub Workbook_SheetActivate (ByVal Sh As　Object)
　　　 Set_All_Charts
End Sub
　
Private　Sub Workbook_SheetDeactivate (ByVal Sh As　Object)
　　　 Reset_All_Charts
End Sub

　　为当前内存中所有的Workbook中的所有Chart对象添加内嵌事件。这个稍微有些麻烦，可按照下面的步骤添加代码：

　　 i. 新建类模块CAppEvent，添加下面的代码

Option　Explicit
　
Public WithEvents EventApp As Excel.Application
　
Private　Sub EventApp_SheetActivate (ByVal Sh As　Object)
　　　 Set_All_Charts
End Sub
　
Private　Sub EventApp_SheetDeactivate (ByVal Sh As　Object)
　　　 Reset_All_Charts
End Sub
　
Private　Sub EventApp_WorkbookActivate (ByVal Wb As Workbook)
　　　 Set_All_Charts
End Sub
　
Private　Sub EventApp_WorkbookDeactivate (ByVal Wb As Workbook)
　　　 Reset_All_Charts
End Sub

　　 ii. 在模块1中添加下面的代码

Dim clsAppEvent As　New CAppEvent

Sub InitializeAppEvents ()
　 Set clsAppEvent.EventApp = Application
　 Set_All_Charts
End Sub
　
Sub TerminateAppEvents ()
　 Set clsAppEvent.EventApp =　Nothing
　 Reset_All_Charts
End Sub

　　 iii. 在thisWorkbook中添加下面代码

Private　Sub Workbook_Open()
　　　 InitializeAppEvents
End Sub
　
Private　Sub Workbook_BeforeClose (Cancel As　Boolean)
　　　 TerminateAppEvents
End Sub

　　 如果程序中使用了add-in（Excel外接程序），还需要添加下面两个事件：

Private　Sub Workbook_AddinInstall()
　　　 InitializeAppEvents
End Sub
　
Private　Sub Workbook_AddinUninstall()
　　　 TerminateAppEvents
End Sub

　　 当新的工作簿被打开或外接程序被加载时，CAppEvent类被实例化并将相应的事件附加到所有的Chart对象中；当工作簿被关闭或外接程序别卸载时，应用程序被终止，图表事件便不再被触发。

　　 实际应用中存在很多意想不到的情况导致我们所设置的内嵌事件处理程序不能成功地将相应的事件附加到Chart对象上，甚至还会引发Excel的异常，这很常见！此时你应该考虑InitializeAppEvents过程执行的时机，从而将该过程的执行代码移到其它的地方，这要视具体情况来定。

　　 Excel的图表事件在实际应用中还是非常有用的，它可以扩展用户对Excel图表的使用，从而使操作更加简便。另一方面，我们可以借助于Excel图表对象的事件，通过编写少量的代码来使我们的应用程序完成更加强大的功能。例如在图表中依据鼠标所点的两个点来生成一个曲线，将该曲线作为图表中series的一部分；或者通过鼠标的滚轮来放大或缩小图表的现实区域等。读者如果感兴趣，可以试着自己定义不同的图表事件处理程序来实现更加丰富的功能。