次の方法で共有


Chart.SelectEvent Event

Definition

Occurs when the Chart control is selected.

public:
 event Microsoft::Office::Interop::Excel::ChartEvents_SelectEventHandler ^ SelectEvent;
event Microsoft.Office.Interop.Excel.ChartEvents_SelectEventHandler SelectEvent;
member this.SelectEvent : Microsoft.Office.Interop.Excel.ChartEvents_SelectEventHandler 
Event SelectEvent As ChartEvents_SelectEventHandler 

Event Type

Examples

The following code example creates a Chart with a handler for the SelectEvent event that displays a message box when the primary axis of the chart is selected.

private void DisplayWhenPrimaryAxisSelected()
{
    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.SelectEvent +=
        new Excel.ChartEvents_SelectEventHandler(
        chart1_SelectEvent);
}

void chart1_SelectEvent(int ElementID, int Arg1, int Arg2)
{
    if (Excel.XlChartItem.xlAxis == (Excel.XlChartItem)ElementID)
    {
        if (Excel.XlAxisGroup.xlPrimary == (Excel.XlAxisGroup)Arg1)
        {
            MessageBox.Show("The primary axis of the chart was selected.");
        }
    }
}
WithEvents SelectChart As Microsoft.Office.Tools.Excel.Chart

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

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

Sub SelectChart_SelectEvent(ByVal ElementID As Integer, _
    ByVal Arg1 As Integer, ByVal Arg2 As Integer) _
    Handles SelectChart.SelectEvent

    If Excel.XlChartItem.xlAxis = _
        CType(ElementID, Excel.XlChartItem) Then
        If Excel.XlAxisGroup.xlPrimary = _
            CType(Arg1, Excel.XlAxisGroup) Then
            MsgBox("The primary axis of the chart was selected.")
        End If
    End If
End Sub

Applies to