ChartSheetBase.SeriesChange Event
Definition
Important
Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.
Occurs when the value of a ChartSheetBase data point is changed.
public:
event Microsoft::Office::Interop::Excel::ChartEvents_SeriesChangeEventHandler ^ SeriesChange;public event Microsoft.Office.Interop.Excel.ChartEvents_SeriesChangeEventHandler SeriesChange;member this.SeriesChange : Microsoft.Office.Interop.Excel.ChartEvents_SeriesChangeEventHandler Public Custom Event SeriesChange As ChartEvents_SeriesChangeEventHandler Event Type
Examples
The following code example demonstrates a handler for the SeriesChange event that sets a point's border color to green when a data point of the current Microsoft.Office.Tools.Excel.ChartSheetBase is changed.
private void ChangePointColorWhenSeriesChange()
{
Globals.Sheet1.Range["A1", "A5"].Value2 = 22;
Globals.Sheet1.Range["B1", "B5"].Value2 = 55;
this.SetSourceData(Globals.Sheet1.Range["A1", "B5"],
Excel.XlRowCol.xlColumns);
this.ChartType = Excel.XlChartType.xl3DColumn;
this.SeriesChange +=
new Excel.ChartEvents_SeriesChangeEventHandler(
ChartSheet1_SeriesChange);
}
void ChartSheet1_SeriesChange(int SeriesIndex, int PointIndex)
{
Excel.Series series1 =
(Excel.Series)this.SeriesCollection(SeriesIndex);
Excel.Point point1 = (Excel.Point)series1.Points(PointIndex);
point1.Border.Color =
ColorTranslator.ToOle(Color.Green);
}
Private Sub ChangePointColorWhenSeriesChange()
Globals.Sheet1.Range("A1", "A5").Value2 = 22
Globals.Sheet1.Range("B1", "B5").Value2 = 55
Me.SetSourceData(Globals.Sheet1.Range("A1", "B5"), _
Excel.XlRowCol.xlColumns)
Me.ChartType = Excel.XlChartType.xl3DColumn
End Sub
Sub ChartSheet1_SeriesChange(ByVal SeriesIndex As Integer, _
ByVal PointIndex As Integer) Handles Me.SeriesChange
Dim series1 As Excel.Series = _
CType(Me.SeriesCollection(SeriesIndex), Excel.Series)
Dim point1 As Excel.Point = _
CType(series1.Points(PointIndex), Excel.Point)
point1.Border.Color = _
ColorTranslator.ToOle(Color.Green)
End Sub