Excel中的图表事件

简介:

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

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

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

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

6-3-2009 3-26-43 PM

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

6-3-2009  3-33-17 PM  

1. 图表显示区域。

2. 数据透视图区域。

3. 数据透视图中用于显示数据图表的数据点。

4. 数据透视图中的坐标值。

5. 图例区域。

6. 图表的标题。

7. 用于作为tooltip的数据标签,对数据的解释。

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

6-3-2009 3-48-08 PM

6-3-2009 3-54-12 PM 

为什么要使用图表事件

    使用图表事件可以更加方便用户使用我们编写的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被激活时所触发的事件。

visualbasiccodewindow

    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

welcometomychart

2. Deactivate事件

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

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

thanksforviewthechart

3. Select事件

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

ElementID

Arg1

Arg2

xlChartArea

None

None

xlChartTitle

None

None

xlPlotArea

None

None

xlLegend

None

None

xlFloor

None

None

xlWalls

None

None

xlCorners

None

None

xlDataTable

None

None

xlSeries

SeriesIndex

PointIndex

xlDataLabel

SeriesIndex

PointIndex

xlTrendline

SeriesIndex

TrendLineIndex

xlErrorBars

SeriesIndex

None

xlXErrorBars

SeriesIndex

None

xlYErrorBars

SeriesIndex

None

xlLegendEntry

SeriesIndex

None

xlLegendKey

SeriesIndex

None

xlAxis

AxisIndex

AxisType

xlMajorGridlines

AxisIndex

AxisType

xlMinorGridlines

AxisIndex

AxisType

xlAxisTitle

AxisIndex

AxisType

xlDisplayUnitLabel

AxisIndex

AxisType

xlUpBars

GroupIndex

None

xlDownBars

GroupIndex

None

xlSeriesLines

GroupIndex

None

xlHiLoLines

GroupIndex

None

xlDropLines

GroupIndex

None

xlRadarAxisLabels

GroupIndex

None

xlShape

ShapeIndex

None

xlPivotChartDropZone

DropZoneType

None

xlPivotChartFieldButton

DropZoneType

PivotFieldIndex

xlNothing

None

None

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 "  
            sArg 
=   " Series  "   &  Arg1 
            
If  Arg2  >   0   Then  sArg  =  sArg  &   " , Point  "   &  Arg2 
        
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 "  
            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 , _ 
        ByVal x 
As   Long , ByVal y  As   Long
  
    
Dim  ElementID  As   Long , Arg1  As   Long , Arg2  As   Long  
    
Dim  myX  As  Variant 
  
    
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很熟悉的话,这一部分对你来说应该不会陌生。除此之外,我们还可以通过“插入 ”菜单在工程中加入用户窗体、模块和类模块。使用类模块来定义全局对象,从而实现内嵌事件。

VBAProject

    先介绍一下Option Explicit语句。

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

optionexplicit

     我们要求的内嵌事件程序都在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的一部分;或者通过鼠标的滚轮来放大或缩小图表的现实区域等。读者如果感兴趣,可以试着自己定义不同的图表事件处理程序来实现更加丰富的功能。


本文转自Jaxu博客园博客,原文链接:http://www.cnblogs.com/jaxu/archive/2009/06/08/1498352.html,如需转载请自行联系原作者


相关文章
|
2月前
为Excel操碎了心 | 图表篇
为Excel操碎了心 | 图表篇
23 0
|
2月前
|
数据可视化
Excel实例:Excel图表可视化:条形图、折线图、散点图和步骤图
Excel实例:Excel图表可视化:条形图、折线图、散点图和步骤图
|
2月前
|
Python
Python自动化办公之 Excel 自动绘制图表
Python自动化办公之 Excel 自动绘制图表
|
2月前
|
Python
五分钟学 | Excel 自动化之自动画图表
五分钟学 | Excel 自动化之自动画图表
|
12月前
|
数据可视化 开发工具 git
只会Excel想做图表可视化,让数据动起来?可以,快来围观啦(附大量模板下载)
只会Excel想做图表可视化,让数据动起来?可以,快来围观啦(附大量模板下载)
|
Python
Excel 公式、图表以及单元格的操作
SUM 函数将值相加,可以将单个值、单元格引用或是区域相加,或者将三者的组合相加。例如: =SUM(A1:A3)将单元格 A1:A3 中的值加在一起,=SUM(A1:A3,B1:B3)将单元格 A1:A3 以及单元格 B1:B3 中的值加在一起。语法:SUM(number1,[number2],…),number1(必需):要相加的第一个数字。该数字可以是 4 之类的数字,A1 之类的单元格引用或 A1:A3 之类的单元格范围。number2(可选):要相加的第二个数字。可以按照这种方式最多指定 255 个数字。下面我们来看怎么通过 Python 使用 SUM 函数。代码如下:
177 0
|
数据采集 编解码 开发者
案例分享:Qt多通道数据采集系统(通道配置、电压转换、采样频率、通道补偿值、定时采集、导出excel和图表、自动XY轴、隐藏XY轴、实时隐藏显示通道
案例分享:Qt多通道数据采集系统(通道配置、电压转换、采样频率、通道补偿值、定时采集、导出excel和图表、自动XY轴、隐藏XY轴、实时隐藏显示通道
案例分享:Qt多通道数据采集系统(通道配置、电压转换、采样频率、通道补偿值、定时采集、导出excel和图表、自动XY轴、隐藏XY轴、实时隐藏显示通道
|
Python
快看看用Python生成Excel炫酷图表,不然你就OUT了
快看看用Python生成Excel炫酷图表,不然你就OUT了
324 0
快看看用Python生成Excel炫酷图表,不然你就OUT了
Python自动化办公之 Excel 自动绘制图表
Python自动化办公之 Excel 自动绘制图表
Python自动化办公之 Excel 自动绘制图表
五分钟学 | Excel 自动化之自动画图表
五分钟学 | Excel 自动化之自动画图表
五分钟学 | Excel 自动化之自动画图表