//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; GrapeCity.Documents.Excel.Drawing.IShape shape = worksheet.Shapes.AddChart(GrapeCity.Documents.Excel.Drawing.ChartType.ColumnClustered, 250, 20, 360, 230); worksheet.Range["A1:B6"].Value = new object[,] { {null, "S1"}, {"Item1", 10}, {"Item2", -51}, {"Item3", 52}, {"Item4", 22}, {"Item5", 23} }; shape.Chart.SeriesCollection.Add(worksheet.Range["A1:B6"], GrapeCity.Documents.Excel.Drawing.RowCol.Columns, true, true); //set vary colors for column chart which only has one series. shape.Chart.ColumnGroups[0].VaryByCategories = true; // Save to an excel file workbook.Save("SetVaryColorForColumnChart.xlsx");
' Create a new Workbook Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) Dim shape As IShape = worksheet.Shapes.AddChart(ChartType.ColumnClustered, 250, 20, 360, 230) worksheet.Range("A1:B6").Value = New Object(,) { {Nothing, "S1"}, {"Item1", 10}, {"Item2", -51}, {"Item3", 52}, {"Item4", 22}, {"Item5", 23} } shape.Chart.SeriesCollection.Add(worksheet.Range("A1:B6"), RowCol.Columns, True, True) 'set vary colors for column chart which only has one series. shape.Chart.ColumnGroups(0).VaryByCategories = True ' save to an excel file workbook.Save("SetVaryColorForColumnChart.xlsx")