Chart.SeriesChange Événement
Définition
Important
Certaines informations portent sur la préversion du produit qui est susceptible d’être en grande partie modifiée avant sa publication. Microsoft exclut toute garantie, expresse ou implicite, concernant les informations fournies ici.
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
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