Chart.SeriesChange Événement

Définition

Se produit lorsque la valeur d'un point de données du contrôle Chart est modifiée.

event Microsoft.Office.Interop.Excel.ChartEvents_SeriesChangeEventHandler SeriesChange;

Type d'événement

ChartEvents_SeriesChangeEventHandler

Exemples

L’exemple de code suivant crée un Chart avec un gestionnaire pour l' SeriesChange événement qui définit la couleur de bordure d’un point en vert lorsqu’un point de données du graphique est modifié.

Microsoft.Office.Tools.Excel.Chart seriesChart;

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

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

    seriesChart.SeriesChange +=
        new Excel.ChartEvents_SeriesChangeEventHandler(
        seriesChart_SeriesChange);
}

void seriesChart_SeriesChange(int SeriesIndex, int PointIndex)
{
    Excel.Series series1 =
        (Excel.Series)seriesChart.SeriesCollection(SeriesIndex);
    Excel.Point point1 = (Excel.Point)series1.Points(PointIndex);

    point1.Border.Color =
        ColorTranslator.ToOle(Color.Green);
}
WithEvents SeriesChart As Microsoft.Office.Tools.Excel.Chart

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

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

Sub SeriesChart_SeriesChange(ByVal SeriesIndex As Integer, _
    ByVal PointIndex As Integer) Handles SeriesChart.SeriesChange

    Dim series1 As Excel.Series = _
         CType(SeriesChart.SeriesCollection(SeriesIndex), _
         Excel.Series)
    Dim point1 As Excel.Point = _
        CType(series1.Points(PointIndex), Excel.Point)

    point1.Border.Color = _
            ColorTranslator.ToOle(Color.Green)
End Sub

S’applique à