Partager via


Chart.MouseDown Event

Definition

Occurs when a mouse button is pressed when the pointer is over a Chart control.

public:
 event Microsoft::Office::Interop::Excel::ChartEvents_MouseDownEventHandler ^ MouseDown;
event Microsoft.Office.Interop.Excel.ChartEvents_MouseDownEventHandler MouseDown;
member this.MouseDown : Microsoft.Office.Interop.Excel.ChartEvents_MouseDownEventHandler 
Event MouseDown As ChartEvents_MouseDownEventHandler 

Event Type

Examples

The following code example creates a Chart with a handler for the MouseDown event that displays the coordinates of the mouse pointer in cell D14 when the mouse button is pressed while the pointer is over the chart.

private void DisplayMouseDown()
{
    this.Range["A1", "A5"].Value2 = 22;
    this.Range["B1", "B5"].Value2 = 55;

    Microsoft.Office.Tools.Excel.Chart chart1 =
        this.Controls.AddChart(this.Range["D2", "H12"], 
        "chart1");
    chart1.SetSourceData(this.Range["A1", "B5"], 
        Excel.XlRowCol.xlColumns);
    chart1.ChartType = Excel.XlChartType.xl3DColumn;

    chart1.MouseDown +=
        new Excel.ChartEvents_MouseDownEventHandler(
        chart1_MouseDown);
}

void chart1_MouseDown(int Button, int Shift, int x, int y)
{
    this.Range["D14"].Value2 = "The chart was clicked at" +
        " coordinates " + x.ToString() + ", " + y.ToString();
}
WithEvents MouseDownChart As Microsoft.Office.Tools.Excel.Chart

Private Sub DisplayMouseDown()
    Me.Range("A1", "A5").Value2 = 22
    Me.Range("B1", "B5").Value2 = 55

    MouseDownChart = Me.Controls.AddChart(Me.Range("D2", "H12"), _
        "MouseDownChart")
    MouseDownChart.SetSourceData(Me.Range("A1", "B5"), _
        Excel.XlRowCol.xlColumns)
    MouseDownChart.ChartType = Excel.XlChartType.xl3DColumn
End Sub

Sub MouseDownChart_MouseDown(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal x As Integer, _
    ByVal y As Integer) Handles MouseDownChart.MouseDown

    Me.Range("D14").Value2 = _
        "The chart was clicked at coordinates " _
        & x.ToString() & ", " & y.ToString()
End Sub

Applies to