Skip to content

Commit ad40196

Browse files
SivakumarRamyaSivakumarRamya
committed
991692-Sunburst
1 parent 86a56ac commit ad40196

1 file changed

Lines changed: 83 additions & 83 deletions

File tree

‎Document-Processing/Excel/Excel-Library/NET/faqs/how-to-set-the-color-for-the-dynamic-series-in-sunburst-chart.md‎

Lines changed: 83 additions & 83 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
---
2-
title: How to set the color for the dynamic series in sunburst chart| Syncfusion
2+
title: Set Dynamic Series Colors in a Sunburst Chart | Syncfusion
33
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.
44
platform: document-processing
55
control: XlsIO
@@ -37,23 +37,23 @@ using (ExcelEngine excelEngine = new ExcelEngine())
3737
series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false;
3838
series.DataPoints.DefaultDataPoint.DataLabels.IsValue = true;
3939

40-
Color[] seriescolor = new Color[12];
41-
seriescolor[0] = Color.FromArgb(253, 182, 33);
42-
seriescolor[1] = Color.FromArgb(18, 151, 243);
43-
seriescolor[2] = Color.FromArgb(38, 7, 142);
44-
seriescolor[3] = Color.FromArgb(5, 60, 122);
45-
seriescolor[4] = Color.FromArgb(180, 70, 243);
46-
seriescolor[5] = Color.FromArgb(53, 12, 133);
47-
seriescolor[6] = Color.FromArgb(108, 11, 23);
48-
seriescolor[7] = Color.FromArgb(200, 70, 112);
49-
seriescolor[8] = Color.FromArgb(125, 200, 12);
50-
seriescolor[9] = Color.FromArgb(10, 150, 43);
51-
seriescolor[10] = Color.FromArgb(150, 82, 133);
52-
seriescolor[11] = Color.FromArgb(98, 15, 103);
40+
Color[] series_color = new Color[12];
41+
series_color[0] = Color.FromArgb(253, 182, 33);
42+
series_color[1] = Color.FromArgb(18, 151, 243);
43+
series_color[2] = Color.FromArgb(38, 7, 142);
44+
series_color[3] = Color.FromArgb(5, 60, 122);
45+
series_color[4] = Color.FromArgb(180, 70, 243);
46+
series_color[5] = Color.FromArgb(53, 12, 133);
47+
series_color[6] = Color.FromArgb(108, 11, 23);
48+
series_color[7] = Color.FromArgb(200, 70, 112);
49+
series_color[8] = Color.FromArgb(125, 200, 12);
50+
series_color[9] = Color.FromArgb(10, 150, 43);
51+
series_color[10] = Color.FromArgb(150, 82, 133);
52+
series_color[11] = Color.FromArgb(98, 15, 103);
5353

5454
for (int i = 0; i < (series as ChartSerieImpl).PointNumber; i++)
5555
{
56-
series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriescolor[i];
56+
series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = series_color[i];
5757
}
5858

5959
//Set Legend
@@ -93,23 +93,23 @@ using (ExcelEngine excelEngine = new ExcelEngine())
9393
series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = false;
9494
series.DataPoints.DefaultDataPoint.DataLabels.IsValue = true;
9595

96-
Color[] seriescolor = new Color[12];
97-
seriescolor[0] = Color.FromArgb(253, 182, 33);
98-
seriescolor[1] = Color.FromArgb(18, 151, 243);
99-
seriescolor[2] = Color.FromArgb(38, 7, 142);
100-
seriescolor[3] = Color.FromArgb(5, 60, 122);
101-
seriescolor[4] = Color.FromArgb(180, 70, 243);
102-
seriescolor[5] = Color.FromArgb(53, 12, 133);
103-
seriescolor[6] = Color.FromArgb(108, 11, 23);
104-
seriescolor[7] = Color.FromArgb(200, 70, 112);
105-
seriescolor[8] = Color.FromArgb(125, 200, 12);
106-
seriescolor[9] = Color.FromArgb(10, 150, 43);
107-
seriescolor[10] = Color.FromArgb(150, 82, 133);
108-
seriescolor[11] = Color.FromArgb(98, 15, 103);
96+
Color[] series_color = new Color[12];
97+
series_color[0] = Color.FromArgb(253, 182, 33);
98+
series_color[1] = Color.FromArgb(18, 151, 243);
99+
series_color[2] = Color.FromArgb(38, 7, 142);
100+
series_color[3] = Color.FromArgb(5, 60, 122);
101+
series_color[4] = Color.FromArgb(180, 70, 243);
102+
series_color[5] = Color.FromArgb(53, 12, 133);
103+
series_color[6] = Color.FromArgb(108, 11, 23);
104+
series_color[7] = Color.FromArgb(200, 70, 112);
105+
series_color[8] = Color.FromArgb(125, 200, 12);
106+
series_color[9] = Color.FromArgb(10, 150, 43);
107+
series_color[10] = Color.FromArgb(150, 82, 133);
108+
series_color[11] = Color.FromArgb(98, 15, 103);
109109

110110
for (int i = 0; i < (series as ChartSerieImpl).PointNumber; i++)
111111
{
112-
series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = seriescolor[i];
112+
series.DataPoints[i].DataFormat.AreaProperties.ForegroundColor = series_color[i];
113113
}
114114

115115
//Set Legend
@@ -127,59 +127,59 @@ using (ExcelEngine excelEngine = new ExcelEngine())
127127
{% endhighlight %}
128128

129129
{% highlight vb.net tabtitle="VB.NET [Windows-specific]" %}
130-
Using excelEngine As New ExcelEngine()
131-
Dim application As IApplication = excelEngine.Excel
132-
application.DefaultVersion = ExcelVersion.Xlsx
133-
134-
Dim workbook As IWorkbook = application.Workbooks.Open("../../Data/Input.xlsx")
135-
Dim worksheet As IWorksheet = workbook.Worksheets(0)
136-
137-
'Initialize chart
138-
Dim chart As IChartShape = worksheet.Charts.Add()
139-
chart.ChartType = ExcelChartType.SunBurst
140-
141-
'Assign data
142-
chart.DataRange = worksheet("A1:B13")
143-
chart.IsSeriesInRows = False
144-
145-
'Apply chart elements
146-
'Set Chart Title
147-
chart.ChartTitle = "Transfer Summary"
148-
149-
'Set Data labels
150-
Dim series As IChartSerie = chart.Series(0)
151-
series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = False
152-
series.DataPoints.DefaultDataPoint.DataLabels.IsValue = True
153-
154-
Dim seriescolor(11) As Color
155-
seriescolor(0) = Color.FromArgb(253, 182, 33)
156-
seriescolor(1) = Color.FromArgb(18, 151, 243)
157-
seriescolor(2) = Color.FromArgb(38, 7, 142)
158-
seriescolor(3) = Color.FromArgb(5, 60, 122)
159-
seriescolor(4) = Color.FromArgb(180, 70, 243)
160-
seriescolor(5) = Color.FromArgb(53, 12, 133)
161-
seriescolor(6) = Color.FromArgb(108, 11, 23)
162-
seriescolor(7) = Color.FromArgb(200, 70, 112)
163-
seriescolor(8) = Color.FromArgb(125, 200, 12)
164-
seriescolor(9) = Color.FromArgb(10, 150, 43)
165-
seriescolor(10) = Color.FromArgb(150, 82, 133)
166-
seriescolor(11) = Color.FromArgb(98, 15, 103)
167-
168-
For i As Integer = 0 To CType(series, ChartSerieImpl).PointNumber - 1
169-
series.DataPoints(i).DataFormat.AreaProperties.ForegroundColor = seriescolor(i)
170-
Next
171-
172-
'Set Legend
173-
chart.HasLegend = True
174-
175-
'Positioning the chart in the worksheet
176-
chart.TopRow = 8
177-
chart.LeftColumn = 1
178-
chart.BottomRow = 23
179-
chart.RightColumn = 8
180-
181-
'Saving and closing the workbook
182-
workbook.SaveAs("../../Output/SunBurst.xlsx")
183-
End Using
130+
Using excelEngine As New ExcelEngine()
131+
Dim application As IApplication = excelEngine.Excel
132+
application.DefaultVersion = ExcelVersion.Xlsx
133+
134+
Dim workbook As IWorkbook = application.Workbooks.Open("../../Data/Input.xlsx")
135+
Dim worksheet As IWorksheet = workbook.Worksheets(0)
136+
137+
'Initialize chart
138+
Dim chart As IChartShape = worksheet.Charts.Add()
139+
chart.ChartType = ExcelChartType.SunBurst
140+
141+
'Assign data
142+
chart.DataRange = worksheet("A1:B13")
143+
chart.IsSeriesInRows = False
144+
145+
'Apply chart elements
146+
'Set Chart Title
147+
chart.ChartTitle = "Transfer Summary"
148+
149+
'Set Data labels
150+
Dim series As IChartSerie = chart.Series(0)
151+
series.DataPoints.DefaultDataPoint.DataLabels.IsCategoryName = False
152+
series.DataPoints.DefaultDataPoint.DataLabels.IsValue = True
153+
154+
Dim series_color(11) As Color
155+
series_color(0) = Color.FromArgb(253, 182, 33)
156+
series_color(1) = Color.FromArgb(18, 151, 243)
157+
series_color(2) = Color.FromArgb(38, 7, 142)
158+
series_color(3) = Color.FromArgb(5, 60, 122)
159+
series_color(4) = Color.FromArgb(180, 70, 243)
160+
series_color(5) = Color.FromArgb(53, 12, 133)
161+
series_color(6) = Color.FromArgb(108, 11, 23)
162+
series_color(7) = Color.FromArgb(200, 70, 112)
163+
series_color(8) = Color.FromArgb(125, 200, 12)
164+
series_color(9) = Color.FromArgb(10, 150, 43)
165+
series_color(10) = Color.FromArgb(150, 82, 133)
166+
series_color(11) = Color.FromArgb(98, 15, 103)
167+
168+
For i As Integer = 0 To CType(series, ChartSerieImpl).PointNumber - 1
169+
series.DataPoints(i).DataFormat.AreaProperties.ForegroundColor = series_color(i)
170+
Next
171+
172+
'Set Legend
173+
chart.HasLegend = True
174+
175+
'Positioning the chart in the worksheet
176+
chart.TopRow = 8
177+
chart.LeftColumn = 1
178+
chart.BottomRow = 23
179+
chart.RightColumn = 8
180+
181+
'Saving the workbook
182+
workbook.SaveAs("../../Output/SunBurst.xlsx")
183+
End Using
184184
{% endhighlight %}
185185
{% endtabs %}

0 commit comments

Comments
 (0)