次の方法で共有


Chart.BeforeRightClick Event

Definition

Occurs when the Chart control is right-clicked, before the default right-click action.

public:
 event Microsoft::Office::Interop::Excel::ChartEvents_BeforeRightClickEventHandler ^ BeforeRightClick;
event Microsoft.Office.Interop.Excel.ChartEvents_BeforeRightClickEventHandler BeforeRightClick;
member this.BeforeRightClick : Microsoft.Office.Interop.Excel.ChartEvents_BeforeRightClickEventHandler 
Event BeforeRightClick As ChartEvents_BeforeRightClickEventHandler 

Event Type

Examples

The following code example creates a Chart with a handler for the BeforeRightClick event that displays a message box when the chart is right-clicked. The example also sets the Cancel parameter of the event handler to true so that the chart does not receive the right click action.

private void DisallowRightClicks()
{
    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.BeforeRightClick +=
        new Excel.ChartEvents_BeforeRightClickEventHandler(
        chart1_BeforeRightClick);
}

void chart1_BeforeRightClick(ref bool Cancel)
{
    MessageBox.Show("Right-clicking this chart is not allowed.");
    Cancel = true;
}
WithEvents RightClickChart As Microsoft.Office.Tools.Excel.Chart

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

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

Sub RightClickChart_BeforeRightClick(ByRef Cancel As Boolean) _
    Handles RightClickChart.BeforeRightClick

    MsgBox("Right-clicking this chart is not allowed.")
    Cancel = True
End Sub

Applies to