FpSpread1.ActiveSheetView.RowCount = 25;
FpSpread1.ActiveSheetView.ColumnCount = 15;
FpSpread1.ActiveSheetView.PageSize = 25;
FpSpread1.ActiveSheetView.Cells[0, 0].Text = "Quarter";
FpSpread1.ActiveSheetView.Cells[0, 1].Text = "Month";
FpSpread1.ActiveSheetView.Cells[0, 2].Text = "Week";
FpSpread1.ActiveSheetView.Cells[0, 3].Text = "Sales";
FpSpread1.ActiveSheetView.Cells[1, 0].Text = "1st";
FpSpread1.ActiveSheetView.Cells[1, 1].Text = "Jan";
FpSpread1.ActiveSheetView.Cells[1, 3].Value = 1.7;
FpSpread1.ActiveSheetView.Cells[2, 1].Text = "Feb";
FpSpread1.ActiveSheetView.Cells[2, 2].Text = "Wk1";
FpSpread1.ActiveSheetView.Cells[2, 3].Value = 2.0;
FpSpread1.ActiveSheetView.Cells[3, 2].Text = "Wk2";
FpSpread1.ActiveSheetView.Cells[3, 3].Value = 1.0;
FpSpread1.ActiveSheetView.Cells[4, 2].Text = "Wk3";
FpSpread1.ActiveSheetView.Cells[4, 3].Value = 1.0;
FpSpread1.ActiveSheetView.Cells[5, 2].Text = "Wk4";
FpSpread1.ActiveSheetView.Cells[5, 3].Value = 1.5;
FpSpread1.ActiveSheetView.Cells[6, 1].Text = "Mar";
FpSpread1.ActiveSheetView.Cells[6, 3].Value = 3.0;
FpSpread1.ActiveSheetView.Cells[7, 0].Text = "2nd";
FpSpread1.ActiveSheetView.Cells[7, 1].Text = "Apr";
FpSpread1.ActiveSheetView.Cells[7, 3].Value = 1.1;
FpSpread1.ActiveSheetView.Cells[8, 1].Text = "May";
FpSpread1.ActiveSheetView.Cells[8, 3].Value = 2.8;
FpSpread1.ActiveSheetView.Cells[9, 1].Text = "Jun";
FpSpread1.ActiveSheetView.Cells[9, 3].Value = 1.3;
FpSpread1.ActiveSheetView.Cells[10, 0].Text = "3rd";
FpSpread1.ActiveSheetView.Cells[10, 1].Text = "July";
FpSpread1.ActiveSheetView.Cells[10, 3].Value = 1.7;
FpSpread1.ActiveSheetView.Cells[11, 1].Text = "Aug";
FpSpread1.ActiveSheetView.Cells[11, 3].Value = 1.6;
FpSpread1.ActiveSheetView.Cells[12, 1].Text = "Sept";
FpSpread1.ActiveSheetView.Cells[12, 3].Value = 2.1;
FpSpread1.ActiveSheetView.Cells[13, 0].Text = "4th";
FpSpread1.ActiveSheetView.Cells[13, 1].Text = "Oct";
FpSpread1.ActiveSheetView.Cells[13, 3].Value = 1.4;
FpSpread1.ActiveSheetView.Cells[14, 1].Text = "Nov";
FpSpread1.ActiveSheetView.Cells[14, 3].Value = 2.0;
FpSpread1.ActiveSheetView.Cells[15, 1].Text = "Dec";
FpSpread1.ActiveSheetView.Cells[15, 2].Text = "Wk1";
FpSpread1.ActiveSheetView.Cells[15, 3].Value = 3.0;
FpSpread1.ActiveSheetView.AddChart(new FarPoint.Web.Spread.Model.CellRange(0, 0, 16, 4), typeof(FarPoint.Web.Chart.SunburstSeries), 550, 450, 300, 0);
FarPoint.Web.Chart.SunburstSeries sunseries = (FarPoint.Web.Chart.SunburstSeries)FpSpread1.Sheets[0].Charts[0].Model.PlotAreas[0].Series[0];
sunseries.Fills.AddRange(new FarPoint.Web.Chart.Fill[] { new FarPoint.Web.Chart.SolidFill(Color.MediumSeaGreen), null, null, null, null, null, new FarPoint.Web.Chart.SolidFill(Color.PaleGreen), null, null });
FpSpread1.ActiveSheetView.RowCount = 25
FpSpread1.ActiveSheetView.ColumnCount = 15
FpSpread1.ActiveSheetView.PageSize = 25
FpSpread1.ActiveSheetView.Cells(0, 0).Text = "Quarter"
FpSpread1.ActiveSheetView.Cells(0, 1).Text = "Month"
FpSpread1.ActiveSheetView.Cells(0, 2).Text = "Week"
FpSpread1.ActiveSheetView.Cells(0, 3).Text = "Sales"
FpSpread1.ActiveSheetView.Cells(1, 0).Text = "1st"
FpSpread1.ActiveSheetView.Cells(1, 1).Text = "Jan"
FpSpread1.ActiveSheetView.Cells(1, 3).Value = 1.7
FpSpread1.ActiveSheetView.Cells(2, 1).Text = "Feb"
FpSpread1.ActiveSheetView.Cells(2, 2).Text = "Wk1"
FpSpread1.ActiveSheetView.Cells(2, 3).Value = 2.0
FpSpread1.ActiveSheetView.Cells(3, 2).Text = "Wk2"
FpSpread1.ActiveSheetView.Cells(3, 3).Value = 1.0
FpSpread1.ActiveSheetView.Cells(4, 2).Text = "Wk3"
FpSpread1.ActiveSheetView.Cells(4, 3).Value = 1.0
FpSpread1.ActiveSheetView.Cells(5, 2).Text = "Wk4"
FpSpread1.ActiveSheetView.Cells(5, 3).Value = 1.5
FpSpread1.ActiveSheetView.Cells(6, 1).Text = "Mar"
FpSpread1.ActiveSheetView.Cells(6, 3).Value = 3.0
FpSpread1.ActiveSheetView.Cells(7, 0).Text = "2nd"
FpSpread1.ActiveSheetView.Cells(7, 1).Text = "Apr"
FpSpread1.ActiveSheetView.Cells(7, 3).Value = 1.1
FpSpread1.ActiveSheetView.Cells(8, 1).Text = "May"
FpSpread1.ActiveSheetView.Cells(8, 3).Value = 2.8
FpSpread1.ActiveSheetView.Cells(9, 1).Text = "Jun"
FpSpread1.ActiveSheetView.Cells(9, 3).Value = 1.3
FpSpread1.ActiveSheetView.Cells(10, 0).Text = "3rd"
FpSpread1.ActiveSheetView.Cells(10, 1).Text = "July"
FpSpread1.ActiveSheetView.Cells(10, 3).Value = 1.7
FpSpread1.ActiveSheetView.Cells(11, 1).Text = "Aug"
FpSpread1.ActiveSheetView.Cells(11, 3).Value = 1.6
FpSpread1.ActiveSheetView.Cells(12, 1).Text = "Sept"
FpSpread1.ActiveSheetView.Cells(12, 3).Value = 2.1
FpSpread1.ActiveSheetView.Cells(13, 0).Text = "4th"
FpSpread1.ActiveSheetView.Cells(13, 1).Text = "Oct"
FpSpread1.ActiveSheetView.Cells(13, 3).Value = 1.4
FpSpread1.ActiveSheetView.Cells(14, 1).Text = "Nov"
FpSpread1.ActiveSheetView.Cells(14, 3).Value = 2.0
FpSpread1.ActiveSheetView.Cells(15, 1).Text = "Dec"
FpSpread1.ActiveSheetView.Cells(15, 2).Text = "Wk1"
FpSpread1.ActiveSheetView.Cells(15, 3).Value = 3.0
FpSpread1.ActiveSheetView.AddChart(New FarPoint.Web.Spread.Model.CellRange(0, 0, 16, 4), GetType(FarPoint.Web.Chart.SunburstSeries), 550, 450, 300, 0)
Dim sunseries As FarPoint.Web.Chart.SunburstSeries = DirectCast(FpSpread1.Sheets(0).Charts(0).Model.PlotAreas(0).Series(0), FarPoint.Web.Chart.SunburstSeries)
sunseries.Fills.AddRange(New FarPoint.Web.Chart.Fill() {New FarPoint.Web.Chart.SolidFill(System.Drawing.Color.MediumSeaGreen), Nothing, Nothing, Nothing, Nothing, Nothing, New FarPoint.Web.Chart.SolidFill(System.Drawing.Color.PaleGreen), Nothing, Nothing})