From 6db61631d4ae1e38441c3f6918461efe89ba9569 Mon Sep 17 00:00:00 2001 From: Ramya Sivakumar Date: Wed, 17 Dec 2025 13:18:51 +0530 Subject: [PATCH 1/3] 991692-Sunburst --- Document-Processing-toc.html | 3 + ...or-the-dynamic-series-in-sunburst-chart.md | 188 ++++++++++++++++++ 2 files changed, 191 insertions(+) create mode 100644 Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md diff --git a/Document-Processing-toc.html b/Document-Processing-toc.html index 7a962e72e..c1321ded3 100644 --- a/Document-Processing-toc.html +++ b/Document-Processing-toc.html @@ -6086,6 +6086,9 @@
  • How to set the first item in a list as the default value in an Excel?
    • +
  • + How to set colors for dynamic series in a Sunburst chart? +
    • diff --git a/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md b/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md new file mode 100644 index 000000000..be05ab3db --- /dev/null +++ b/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md @@ -0,0 +1,188 @@ +--- +title: How to set the color for the dynamic series in sunburst chart| Syncfusion +description: Learn how to apply custom colors to each data point in a Sunburst chart dynamically with the Syncfusion .NET Excel library (XlsIO) using C# and VB.NET. +platform: document-processing +control: XlsIO +documentation: UG +--- + +# How to set colors for dynamic series in a Sunburst chart? + +The examples below show how to assign custom colors to each data point in a Sunburst chart with Syncfusion XlsIO. Code is provided for C# (cross-platform and Windows-specific) and VB.NET. + +{% tabs %} +{% highlight c# tabtitle="C# [Cross-platform]" +{% endhighlight %} +using (ExcelEngine excelEngine = new ExcelEngine()) +{ + IApplication application = excelEngine.Excel; + application.DefaultVersion = ExcelVersion.Xlsx; + IWorkbook workbook = application.Workbooks.Open("../../../Data/Input.xlsx"); + IWorksheet worksheet = workbook.Worksheets[0]; + + //Initialize chart + IChartShape chart = worksheet.Charts.Add(); + chart.ChartType = ExcelChartType.SunBurst; + + //Assign data + chart.DataRange = worksheet["A1:B13"]; + chart.IsSeriesInRows = false; + + //Apply chart elements + //Set Chart Title + chart.ChartTitle = "Transfer Summary"; + + //Set Datalabels + IChartSerie serie1 = chart.Series[0]; + serie1.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false; + serie1.DataPoints.DefaultDataPoint.DataLabels.IsValue = true; + + Color[] seriecolor = new Color[12]; + seriecolor[0] = Color.FromArgb(253, 182, 33); + seriecolor[1] = Color.FromArgb(18, 151, 243); + seriecolor[2] = Color.FromArgb(38, 7, 142); + seriecolor[3] = Color.FromArgb(5, 60, 122); + seriecolor[4] = Color.FromArgb(180, 70, 243); + seriecolor[5] = Color.FromArgb(53, 12, 133); + seriecolor[6] = Color.FromArgb(108, 11, 23); + seriecolor[7] = Color.FromArgb(200, 70, 112); + seriecolor[8] = Color.FromArgb(125, 200, 12); + seriecolor[9] = Color.FromArgb(10, 150, 43); + seriecolor[10] = Color.FromArgb(150, 82, 133); + seriecolor[11] = Color.FromArgb(98, 15, 103); + + for (int i = 0; i < (serie1 as ChartSerieImpl).PointNumber; i++) + { + serie1.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriecolor[i]; + } + + //Set Legend + chart.HasLegend = true; + + //Positioning the chart in the worksheet + chart.TopRow = 8; + chart.LeftColumn = 1; + chart.BottomRow = 23; + chart.RightColumn = 8; + + //Saving the workbook + workbook.SaveAs("../../../Output/SunBurst.xlsx"); +} +{% highlight c# tabtitle="C# [Windows-specific]" %} + using (ExcelEngine excelEngine = new ExcelEngine()) + { + IApplication application = excelEngine.Excel; + application.DefaultVersion = ExcelVersion.Xlsx; + IWorkbook workbook = application.Workbooks.Open("../../Data/Input.xlsx"); + IWorksheet worksheet = workbook.Worksheets[0]; + + //Initialize chart + IChartShape chart = worksheet.Charts.Add(); + chart.ChartType = ExcelChartType.SunBurst; + + //Assign data + chart.DataRange = worksheet["A1:B13"]; + chart.IsSeriesInRows = false; + + //Apply chart elements + //Set Chart Title + chart.ChartTitle = "Transfer Summary"; + + //Set Datalabels + IChartSerie serie1 = chart.Series[0]; + serie1.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false; + serie1.DataPoints.DefaultDataPoint.DataLabels.IsValue = true; + + Color[] seriecolor = new Color[12]; + seriecolor[0] = Color.FromArgb(253, 182, 33); + seriecolor[1] = Color.FromArgb(18, 151, 243); + seriecolor[2] = Color.FromArgb(38, 7, 142); + seriecolor[3] = Color.FromArgb(5, 60, 122); + seriecolor[4] = Color.FromArgb(180, 70, 243); + seriecolor[5] = Color.FromArgb(53, 12, 133); + seriecolor[6] = Color.FromArgb(108, 11, 23); + seriecolor[7] = Color.FromArgb(200, 70, 112); + seriecolor[8] = Color.FromArgb(125, 200, 12); + seriecolor[9] = Color.FromArgb(10, 150, 43); + seriecolor[10] = Color.FromArgb(150, 82, 133); + seriecolor[11] = Color.FromArgb(98, 15, 103); + + for (int i = 0; i < (serie1 as ChartSerieImpl).PointNumber; i++) + { + serie1.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriecolor[i]; + } + + //Set Legend + chart.HasLegend = true; + + //Positioning the chart in the worksheet + chart.TopRow = 8; + chart.LeftColumn = 1; + chart.BottomRow = 23; + chart.RightColumn = 8; + + //Saving and closing the workbook + workbook.SaveAs("../../Output/SunBurst.xlsx"); + } +{% endhighlight %} + +{% highlight vb.net tabtitle="VB.NET [Windows-specific]" %} +Using excelEngine As New ExcelEngine() + + Dim application As IApplication = excelEngine.Excel + application.DefaultVersion = ExcelVersion.Xlsx + + 'Open existing workbook with data + Dim workbook As IWorkbook = application.Workbooks.Open("../../Data/Input.xlsx") + Dim worksheet As IWorksheet = workbook.Worksheets(0) + + 'Create and configure Sunburst chart + Dim chart As IChartShape = worksheet.Charts.Add() + chart.ChartType = ExcelChartType.SunBurst + + 'Assign data + chart.DataRange = worksheet("A1:B13") + chart.IsSeriesInRows = False + + 'Chart Title + chart.ChartTitle = "Transfer Summary" + + 'Data labels (show value only) + Dim serie1 As IChartSerie = chart.Series(0) + serie1.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = False + serie1.DataPoints.DefaultDataPoint.DataLabels.IsValue = True + + 'Custom colors for each data point + Dim serieColor(11) As Color + serieColor(0) = Color.FromArgb(253, 182, 33) + serieColor(1) = Color.FromArgb(18, 151, 243) + serieColor(2) = Color.FromArgb(38, 7, 142) + serieColor(3) = Color.FromArgb(5, 60, 122) + serieColor(4) = Color.FromArgb(180, 70, 243) + serieColor(5) = Color.FromArgb(53, 12, 133) + serieColor(6) = Color.FromArgb(108, 11, 23) + serieColor(7) = Color.FromArgb(200, 70, 112) + serieColor(8) = Color.FromArgb(125, 200, 12) + serieColor(9) = Color.FromArgb(10, 150, 43) + serieColor(10) = Color.FromArgb(150, 82, 133) + serieColor(11) = Color.FromArgb(98, 15, 103) + + For i As Integer = 0 To CType(serie1, ChartSerieImpl).PointNumber - 1 + serie1.DataPoints(i).DataFormat.AreaProperties.ForegroundColor = serieColor(i) + Next + + 'Legend + chart.HasLegend = True + + 'Position the chart in the worksheet + chart.TopRow = 8 + chart.LeftColumn = 1 + chart.BottomRow = 23 + chart.RightColumn = 8 + + 'Save and close + workbook.SaveAs("../../Output/SunBurst.xlsx") + +End Using +{% endhighlight %} +{% endtabs %} \ No newline at end of file From 86a56ac635d0d27b8eea5b76cdd4938dca43f18e Mon Sep 17 00:00:00 2001 From: Ramya Sivakumar Date: Wed, 17 Dec 2025 17:48:30 +0530 Subject: [PATCH 2/3] 991692-Sunburst --- ...or-the-dynamic-series-in-sunburst-chart.md | 211 +++++++++--------- 1 file changed, 104 insertions(+), 107 deletions(-) diff --git a/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md b/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md index be05ab3db..0e675ce56 100644 --- a/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md +++ b/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md @@ -11,7 +11,7 @@ documentation: UG The examples below show how to assign custom colors to each data point in a Sunburst chart with Syncfusion XlsIO. Code is provided for C# (cross-platform and Windows-specific) and VB.NET. {% tabs %} -{% highlight c# tabtitle="C# [Cross-platform]" +{% highlight c# tabtitle="C# [Cross-platform]" %} {% endhighlight %} using (ExcelEngine excelEngine = new ExcelEngine()) { @@ -32,28 +32,28 @@ using (ExcelEngine excelEngine = new ExcelEngine()) //Set Chart Title chart.ChartTitle = "Transfer Summary"; - //Set Datalabels - IChartSerie serie1 = chart.Series[0]; - serie1.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false; - serie1.DataPoints.DefaultDataPoint.DataLabels.IsValue = true; - - Color[] seriecolor = new Color[12]; - seriecolor[0] = Color.FromArgb(253, 182, 33); - seriecolor[1] = Color.FromArgb(18, 151, 243); - seriecolor[2] = Color.FromArgb(38, 7, 142); - seriecolor[3] = Color.FromArgb(5, 60, 122); - seriecolor[4] = Color.FromArgb(180, 70, 243); - seriecolor[5] = Color.FromArgb(53, 12, 133); - seriecolor[6] = Color.FromArgb(108, 11, 23); - seriecolor[7] = Color.FromArgb(200, 70, 112); - seriecolor[8] = Color.FromArgb(125, 200, 12); - seriecolor[9] = Color.FromArgb(10, 150, 43); - seriecolor[10] = Color.FromArgb(150, 82, 133); - seriecolor[11] = Color.FromArgb(98, 15, 103); - - for (int i = 0; i < (serie1 as ChartSerieImpl).PointNumber; i++) + //Set Data labels + IChartSerie series = chart.Series[0]; + series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false; + series.DataPoints.DefaultDataPoint.DataLabels.IsValue = true; + + Color[] seriescolor = new Color[12]; + seriescolor[0] = Color.FromArgb(253, 182, 33); + seriescolor[1] = Color.FromArgb(18, 151, 243); + seriescolor[2] = Color.FromArgb(38, 7, 142); + seriescolor[3] = Color.FromArgb(5, 60, 122); + seriescolor[4] = Color.FromArgb(180, 70, 243); + seriescolor[5] = Color.FromArgb(53, 12, 133); + seriescolor[6] = Color.FromArgb(108, 11, 23); + seriescolor[7] = Color.FromArgb(200, 70, 112); + seriescolor[8] = Color.FromArgb(125, 200, 12); + seriescolor[9] = Color.FromArgb(10, 150, 43); + seriescolor[10] = Color.FromArgb(150, 82, 133); + seriescolor[11] = Color.FromArgb(98, 15, 103); + + for (int i = 0; i < (series as ChartSerieImpl).PointNumber; i++) { - serie1.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriecolor[i]; + series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriescolor[i]; } //Set Legend @@ -69,74 +69,72 @@ using (ExcelEngine excelEngine = new ExcelEngine()) workbook.SaveAs("../../../Output/SunBurst.xlsx"); } {% highlight c# tabtitle="C# [Windows-specific]" %} - using (ExcelEngine excelEngine = new ExcelEngine()) - { - IApplication application = excelEngine.Excel; - application.DefaultVersion = ExcelVersion.Xlsx; - IWorkbook workbook = application.Workbooks.Open("../../Data/Input.xlsx"); - IWorksheet worksheet = workbook.Worksheets[0]; - - //Initialize chart - IChartShape chart = worksheet.Charts.Add(); - chart.ChartType = ExcelChartType.SunBurst; - - //Assign data - chart.DataRange = worksheet["A1:B13"]; - chart.IsSeriesInRows = false; - - //Apply chart elements - //Set Chart Title - chart.ChartTitle = "Transfer Summary"; - - //Set Datalabels - IChartSerie serie1 = chart.Series[0]; - serie1.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false; - serie1.DataPoints.DefaultDataPoint.DataLabels.IsValue = true; - - Color[] seriecolor = new Color[12]; - seriecolor[0] = Color.FromArgb(253, 182, 33); - seriecolor[1] = Color.FromArgb(18, 151, 243); - seriecolor[2] = Color.FromArgb(38, 7, 142); - seriecolor[3] = Color.FromArgb(5, 60, 122); - seriecolor[4] = Color.FromArgb(180, 70, 243); - seriecolor[5] = Color.FromArgb(53, 12, 133); - seriecolor[6] = Color.FromArgb(108, 11, 23); - seriecolor[7] = Color.FromArgb(200, 70, 112); - seriecolor[8] = Color.FromArgb(125, 200, 12); - seriecolor[9] = Color.FromArgb(10, 150, 43); - seriecolor[10] = Color.FromArgb(150, 82, 133); - seriecolor[11] = Color.FromArgb(98, 15, 103); - - for (int i = 0; i < (serie1 as ChartSerieImpl).PointNumber; i++) - { - serie1.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriecolor[i]; - } - - //Set Legend - chart.HasLegend = true; - - //Positioning the chart in the worksheet - chart.TopRow = 8; - chart.LeftColumn = 1; - chart.BottomRow = 23; - chart.RightColumn = 8; - - //Saving and closing the workbook - workbook.SaveAs("../../Output/SunBurst.xlsx"); - } +using (ExcelEngine excelEngine = new ExcelEngine()) +{ + IApplication application = excelEngine.Excel; + application.DefaultVersion = ExcelVersion.Xlsx; + IWorkbook workbook = application.Workbooks.Open("../../Data/Input.xlsx"); + IWorksheet worksheet = workbook.Worksheets[0]; + + //Initialize chart + IChartShape chart = worksheet.Charts.Add(); + chart.ChartType = ExcelChartType.SunBurst; + + //Assign data + chart.DataRange = worksheet["A1:B13"]; + chart.IsSeriesInRows = false; + + //Apply chart elements + //Set Chart Title + chart.ChartTitle = "Transfer Summary"; + + //Set Data labels + IChartSerie series = chart.Series[0]; + series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false; + series.DataPoints.DefaultDataPoint.DataLabels.IsValue = true; + + Color[] seriescolor = new Color[12]; + seriescolor[0] = Color.FromArgb(253, 182, 33); + seriescolor[1] = Color.FromArgb(18, 151, 243); + seriescolor[2] = Color.FromArgb(38, 7, 142); + seriescolor[3] = Color.FromArgb(5, 60, 122); + seriescolor[4] = Color.FromArgb(180, 70, 243); + seriescolor[5] = Color.FromArgb(53, 12, 133); + seriescolor[6] = Color.FromArgb(108, 11, 23); + seriescolor[7] = Color.FromArgb(200, 70, 112); + seriescolor[8] = Color.FromArgb(125, 200, 12); + seriescolor[9] = Color.FromArgb(10, 150, 43); + seriescolor[10] = Color.FromArgb(150, 82, 133); + seriescolor[11] = Color.FromArgb(98, 15, 103); + + for (int i = 0; i < (series as ChartSerieImpl).PointNumber; i++) + { + series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriescolor[i]; + } + + //Set Legend + chart.HasLegend = true; + + //Positioning the chart in the worksheet + chart.TopRow = 8; + chart.LeftColumn = 1; + chart.BottomRow = 23; + chart.RightColumn = 8; + + //Saving the workbook + workbook.SaveAs("../../Output/SunBurst.xlsx"); +} {% endhighlight %} {% highlight vb.net tabtitle="VB.NET [Windows-specific]" %} Using excelEngine As New ExcelEngine() - Dim application As IApplication = excelEngine.Excel application.DefaultVersion = ExcelVersion.Xlsx - 'Open existing workbook with data Dim workbook As IWorkbook = application.Workbooks.Open("../../Data/Input.xlsx") Dim worksheet As IWorksheet = workbook.Worksheets(0) - 'Create and configure Sunburst chart + 'Initialize chart Dim chart As IChartShape = worksheet.Charts.Add() chart.ChartType = ExcelChartType.SunBurst @@ -144,45 +142,44 @@ Using excelEngine As New ExcelEngine() chart.DataRange = worksheet("A1:B13") chart.IsSeriesInRows = False - 'Chart Title + 'Apply chart elements + 'Set Chart Title chart.ChartTitle = "Transfer Summary" - 'Data labels (show value only) - Dim serie1 As IChartSerie = chart.Series(0) - serie1.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = False - serie1.DataPoints.DefaultDataPoint.DataLabels.IsValue = True - - 'Custom colors for each data point - Dim serieColor(11) As Color - serieColor(0) = Color.FromArgb(253, 182, 33) - serieColor(1) = Color.FromArgb(18, 151, 243) - serieColor(2) = Color.FromArgb(38, 7, 142) - serieColor(3) = Color.FromArgb(5, 60, 122) - serieColor(4) = Color.FromArgb(180, 70, 243) - serieColor(5) = Color.FromArgb(53, 12, 133) - serieColor(6) = Color.FromArgb(108, 11, 23) - serieColor(7) = Color.FromArgb(200, 70, 112) - serieColor(8) = Color.FromArgb(125, 200, 12) - serieColor(9) = Color.FromArgb(10, 150, 43) - serieColor(10) = Color.FromArgb(150, 82, 133) - serieColor(11) = Color.FromArgb(98, 15, 103) - - For i As Integer = 0 To CType(serie1, ChartSerieImpl).PointNumber - 1 - serie1.DataPoints(i).DataFormat.AreaProperties.ForegroundColor = serieColor(i) + 'Set Data labels + Dim series As IChartSerie = chart.Series(0) + series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = False + series.DataPoints.DefaultDataPoint.DataLabels.IsValue = True + + Dim seriescolor(11) As Color + seriescolor(0) = Color.FromArgb(253, 182, 33) + seriescolor(1) = Color.FromArgb(18, 151, 243) + seriescolor(2) = Color.FromArgb(38, 7, 142) + seriescolor(3) = Color.FromArgb(5, 60, 122) + seriescolor(4) = Color.FromArgb(180, 70, 243) + seriescolor(5) = Color.FromArgb(53, 12, 133) + seriescolor(6) = Color.FromArgb(108, 11, 23) + seriescolor(7) = Color.FromArgb(200, 70, 112) + seriescolor(8) = Color.FromArgb(125, 200, 12) + seriescolor(9) = Color.FromArgb(10, 150, 43) + seriescolor(10) = Color.FromArgb(150, 82, 133) + seriescolor(11) = Color.FromArgb(98, 15, 103) + + For i As Integer = 0 To CType(series, ChartSerieImpl).PointNumber - 1 + series.DataPoints(i).DataFormat.AreaProperties.ForegroundColor = seriescolor(i) Next - 'Legend + 'Set Legend chart.HasLegend = True - 'Position the chart in the worksheet + 'Positioning the chart in the worksheet chart.TopRow = 8 chart.LeftColumn = 1 chart.BottomRow = 23 chart.RightColumn = 8 - 'Save and close + 'Saving and closing the workbook workbook.SaveAs("../../Output/SunBurst.xlsx") - End Using {% endhighlight %} {% endtabs %} \ No newline at end of file From ad401962fe331cae55aa5581c8cedb58627fd5d9 Mon Sep 17 00:00:00 2001 From: Ramya Sivakumar Date: Wed, 17 Dec 2025 18:17:36 +0530 Subject: [PATCH 3/3] 991692-Sunburst --- ...or-the-dynamic-series-in-sunburst-chart.md | 166 +++++++++--------- 1 file changed, 83 insertions(+), 83 deletions(-) diff --git a/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md b/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md index 0e675ce56..ac7975eee 100644 --- a/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md +++ b/Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md @@ -1,5 +1,5 @@ --- -title: How to set the color for the dynamic series in sunburst chart| Syncfusion +title: Set Dynamic Series Colors in a Sunburst Chart | Syncfusion description: Learn how to apply custom colors to each data point in a Sunburst chart dynamically with the Syncfusion .NET Excel library (XlsIO) using C# and VB.NET. platform: document-processing control: XlsIO @@ -37,23 +37,23 @@ using (ExcelEngine excelEngine = new ExcelEngine()) series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false; series.DataPoints.DefaultDataPoint.DataLabels.IsValue = true; - Color[] seriescolor = new Color[12]; - seriescolor[0] = Color.FromArgb(253, 182, 33); - seriescolor[1] = Color.FromArgb(18, 151, 243); - seriescolor[2] = Color.FromArgb(38, 7, 142); - seriescolor[3] = Color.FromArgb(5, 60, 122); - seriescolor[4] = Color.FromArgb(180, 70, 243); - seriescolor[5] = Color.FromArgb(53, 12, 133); - seriescolor[6] = Color.FromArgb(108, 11, 23); - seriescolor[7] = Color.FromArgb(200, 70, 112); - seriescolor[8] = Color.FromArgb(125, 200, 12); - seriescolor[9] = Color.FromArgb(10, 150, 43); - seriescolor[10] = Color.FromArgb(150, 82, 133); - seriescolor[11] = Color.FromArgb(98, 15, 103); + Color[] series_color = new Color[12]; + series_color[0] = Color.FromArgb(253, 182, 33); + series_color[1] = Color.FromArgb(18, 151, 243); + series_color[2] = Color.FromArgb(38, 7, 142); + series_color[3] = Color.FromArgb(5, 60, 122); + series_color[4] = Color.FromArgb(180, 70, 243); + series_color[5] = Color.FromArgb(53, 12, 133); + series_color[6] = Color.FromArgb(108, 11, 23); + series_color[7] = Color.FromArgb(200, 70, 112); + series_color[8] = Color.FromArgb(125, 200, 12); + series_color[9] = Color.FromArgb(10, 150, 43); + series_color[10] = Color.FromArgb(150, 82, 133); + series_color[11] = Color.FromArgb(98, 15, 103); for (int i = 0; i < (series as ChartSerieImpl).PointNumber; i++) { - series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriescolor[i]; + series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = series_color[i]; } //Set Legend @@ -93,23 +93,23 @@ using (ExcelEngine excelEngine = new ExcelEngine()) series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false; series.DataPoints.DefaultDataPoint.DataLabels.IsValue = true; - Color[] seriescolor = new Color[12]; - seriescolor[0] = Color.FromArgb(253, 182, 33); - seriescolor[1] = Color.FromArgb(18, 151, 243); - seriescolor[2] = Color.FromArgb(38, 7, 142); - seriescolor[3] = Color.FromArgb(5, 60, 122); - seriescolor[4] = Color.FromArgb(180, 70, 243); - seriescolor[5] = Color.FromArgb(53, 12, 133); - seriescolor[6] = Color.FromArgb(108, 11, 23); - seriescolor[7] = Color.FromArgb(200, 70, 112); - seriescolor[8] = Color.FromArgb(125, 200, 12); - seriescolor[9] = Color.FromArgb(10, 150, 43); - seriescolor[10] = Color.FromArgb(150, 82, 133); - seriescolor[11] = Color.FromArgb(98, 15, 103); + Color[] series_color = new Color[12]; + series_color[0] = Color.FromArgb(253, 182, 33); + series_color[1] = Color.FromArgb(18, 151, 243); + series_color[2] = Color.FromArgb(38, 7, 142); + series_color[3] = Color.FromArgb(5, 60, 122); + series_color[4] = Color.FromArgb(180, 70, 243); + series_color[5] = Color.FromArgb(53, 12, 133); + series_color[6] = Color.FromArgb(108, 11, 23); + series_color[7] = Color.FromArgb(200, 70, 112); + series_color[8] = Color.FromArgb(125, 200, 12); + series_color[9] = Color.FromArgb(10, 150, 43); + series_color[10] = Color.FromArgb(150, 82, 133); + series_color[11] = Color.FromArgb(98, 15, 103); for (int i = 0; i < (series as ChartSerieImpl).PointNumber; i++) { - series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriescolor[i]; + series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = series_color[i]; } //Set Legend @@ -127,59 +127,59 @@ using (ExcelEngine excelEngine = new ExcelEngine()) {% endhighlight %} {% highlight vb.net tabtitle="VB.NET [Windows-specific]" %} -Using excelEngine As New ExcelEngine() - Dim application As IApplication = excelEngine.Excel - application.DefaultVersion = ExcelVersion.Xlsx - - Dim workbook As IWorkbook = application.Workbooks.Open("../../Data/Input.xlsx") - Dim worksheet As IWorksheet = workbook.Worksheets(0) - - 'Initialize chart - Dim chart As IChartShape = worksheet.Charts.Add() - chart.ChartType = ExcelChartType.SunBurst - - 'Assign data - chart.DataRange = worksheet("A1:B13") - chart.IsSeriesInRows = False - - 'Apply chart elements - 'Set Chart Title - chart.ChartTitle = "Transfer Summary" - - 'Set Data labels - Dim series As IChartSerie = chart.Series(0) - series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = False - series.DataPoints.DefaultDataPoint.DataLabels.IsValue = True - - Dim seriescolor(11) As Color - seriescolor(0) = Color.FromArgb(253, 182, 33) - seriescolor(1) = Color.FromArgb(18, 151, 243) - seriescolor(2) = Color.FromArgb(38, 7, 142) - seriescolor(3) = Color.FromArgb(5, 60, 122) - seriescolor(4) = Color.FromArgb(180, 70, 243) - seriescolor(5) = Color.FromArgb(53, 12, 133) - seriescolor(6) = Color.FromArgb(108, 11, 23) - seriescolor(7) = Color.FromArgb(200, 70, 112) - seriescolor(8) = Color.FromArgb(125, 200, 12) - seriescolor(9) = Color.FromArgb(10, 150, 43) - seriescolor(10) = Color.FromArgb(150, 82, 133) - seriescolor(11) = Color.FromArgb(98, 15, 103) - - For i As Integer = 0 To CType(series, ChartSerieImpl).PointNumber - 1 - series.DataPoints(i).DataFormat.AreaProperties.ForegroundColor = seriescolor(i) - Next - - 'Set Legend - chart.HasLegend = True - - 'Positioning the chart in the worksheet - chart.TopRow = 8 - chart.LeftColumn = 1 - chart.BottomRow = 23 - chart.RightColumn = 8 - - 'Saving and closing the workbook - workbook.SaveAs("../../Output/SunBurst.xlsx") -End Using + Using excelEngine As New ExcelEngine() + Dim application As IApplication = excelEngine.Excel + application.DefaultVersion = ExcelVersion.Xlsx + + Dim workbook As IWorkbook = application.Workbooks.Open("../../Data/Input.xlsx") + Dim worksheet As IWorksheet = workbook.Worksheets(0) + + 'Initialize chart + Dim chart As IChartShape = worksheet.Charts.Add() + chart.ChartType = ExcelChartType.SunBurst + + 'Assign data + chart.DataRange = worksheet("A1:B13") + chart.IsSeriesInRows = False + + 'Apply chart elements + 'Set Chart Title + chart.ChartTitle = "Transfer Summary" + + 'Set Data labels + Dim series As IChartSerie = chart.Series(0) + series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = False + series.DataPoints.DefaultDataPoint.DataLabels.IsValue = True + + Dim series_color(11) As Color + series_color(0) = Color.FromArgb(253, 182, 33) + series_color(1) = Color.FromArgb(18, 151, 243) + series_color(2) = Color.FromArgb(38, 7, 142) + series_color(3) = Color.FromArgb(5, 60, 122) + series_color(4) = Color.FromArgb(180, 70, 243) + series_color(5) = Color.FromArgb(53, 12, 133) + series_color(6) = Color.FromArgb(108, 11, 23) + series_color(7) = Color.FromArgb(200, 70, 112) + series_color(8) = Color.FromArgb(125, 200, 12) + series_color(9) = Color.FromArgb(10, 150, 43) + series_color(10) = Color.FromArgb(150, 82, 133) + series_color(11) = Color.FromArgb(98, 15, 103) + + For i As Integer = 0 To CType(series, ChartSerieImpl).PointNumber - 1 + series.DataPoints(i).DataFormat.AreaProperties.ForegroundColor = series_color(i) + Next + + 'Set Legend + chart.HasLegend = True + + 'Positioning the chart in the worksheet + chart.TopRow = 8 + chart.LeftColumn = 1 + chart.BottomRow = 23 + chart.RightColumn = 8 + + 'Saving the workbook + workbook.SaveAs("../../Output/SunBurst.xlsx") + End Using {% endhighlight %} {% endtabs %} \ No newline at end of file