Chart

Chart - Activate

Calculate is the name of both a method and an event.

((Excel.DocEvents_Event)gApplicationExcel.ActiveChart).Activate += 
    new Excel.ChartEvents_ActivateEventHandler(Event_ChartActivate); 
public void Event_ChartActivate() 
{ 
} 

Addhandler CType(gApplicationExcel.ActiveChart Excel.ChartEvents_Events).Calculate 

Chart - Select

Select is the name of both a method and an event.

((Excel.DocEvents_Event)gApplicationExcel.ActiveChart).Select += 
    new Excel.ChartEvents_SelectEventHandler(Event_ChartSelect); 
public void Event_ChartSelect() 
{ 
} 

Addhandler CType(gApplicationExcel.ActiveChart Excel.ChartEvents_Events).Select 

Writing Chart Events

This object does not have events enabled by default.
You must write your own event handler routines when you want to capture chart events for embedded charts.

If you want to capture the chart events for a specific chart sheet the event handlers are available in an identical way to the worksheet level events.

The advantage of this method is that you can run the same event handler for different chart objects.

Public WithEvents ExcelChartEvents As Chart 

Dim Chart1 As New EventClass 
Dim Chart2 As New EventClass 

Set Chart1.ExcelChartEvents = Worksheets(1).ChartObjects(1).Chart 
Set Chart2.ExcelChartEvents = Worksheets(1).ChartObjects(2).Chart 

Embedded Chart Events

Add a class module to trap the events
Add a standard module to hook the event handler to your charts
The exact code will depend on your situation but there are a wide range of different scenarios from all charts in all sheets in all workbooks to just a single chart in a specific workbook.

Chart Select Event

Or you can use a Chart object declared in a class module to write an event handler for both embedded charts and chart sheets.
This event has three arguments passed to it
ElementID - Identifies the chart element (xlChartItem) enumeration
Arg1 - provides additional information

Arg2 - provides additional information

Chart MouseUp Event

This event has four arguments passed to it
Button - Identifies which button was released (xlMouseButton)
Shift - Identifies if any other keys were pressed (Ctrl, Shift, Alt)
x - Identifies the x-coordinate
y - Identifies the y-coordinate

Change Events

Change events are typically raised when a user exist cell edit mode by leaving the cell or pressing Enter
Change events can also be raised when a cell is linked to external data and it changes as a result of refreshing the external data.
Change events are not raised as a result of recalculation
Application.SheetChange
Workbook.SheetChange
Worksheet.Change

Event Procedures

Private Sub Chart_Activate() 
End Sub 

Private Sub Chart_BeforeDoubleClick( _ 
   ByVal ElementID As Long, _ 
   ByVal Arg1 As Long, _ 
   ByVal Arg2 As Long, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Chart_BeforeRightClick( _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Chart_Calculate() 
End Sub 

Private Sub Chart_Deactivate() 
End Sub 

Private Sub Chart_MouseDown( _ 
   ByVal Button As Long, _ 
   ByVal Shift As Long, _ 
   ByVal x As Long, _ 
   ByVal y As Long) 
End Sub 

Private Sub Chart_MouseMove( _ 
   ByVal Button As Long, _ 
   ByVal Shift As Long, _ 
   ByVal x As Long, _ 
   ByVal y As Long) 
End Sub 

Private Sub Chart_MouseUp( _ 
   ByVal Button As Long, _ 
   ByVal Shift As Long, _ 
   ByVal x As Long, _ 
   ByVal y As Long) 
End Sub 

Private Sub Chart_Resize() 
End Sub 

Private Sub Chart_Select( _ 
   ByVal ElementID As Long, _ 
   ByVal Arg1 As Long, _ 
   ByVal Arg2 As Long) 
End Sub 

Private Sub Chart_SeriesChange( _ 
   ByVal SeriesIndex As Long, _ 
   ByVal PointIndex As Long) 
End Sub 

Creating Dynamically

You can create Charts dynamically
Chart controls can be positioned at arbitrary coordinates, all the other host controls must be positioned using a range.

Microsoft.Office.Tools.Excel.Chart AddChart( 
   double left, 
   double top, 
   double width, 
   double height, 
   string name); 

Public Function AddChart( _ 
   ByVal left As Double, _ 
   ByVal top As Double, _ 
   ByVal width As Double, _ 
   ByVal height As Double, _ 
   ByVal named As String) _ 
   As Microsoft.Office.Tools.Excel.Chart 

Microsoft.Office.Tools.Excel.Chart AddChart( 
   Microsoft.Office.Interop.Excel.Range range, 
   string name); 

Public Function AddChart( _ 
   ByVal range As Microsoft.Office.Interop.Excel.Range, _ 
   ByVal name As String) _ 
   As Microsoft.Office.Tools.Excel.Chart