//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:B13"].Value = new object[,] { { "Blue Column", "Red Line" }, { 75, 20 }, { 149, 50 }, { 105, 30 }, { 55, 80 }, { 121, 40 }, { 76, 110 }, { 128, 50 }, { 114, 140 }, { 75, 60 }, { 105, 170 }, { 145, 70 }, { 110, 100 }, }; shape.Chart.SeriesCollection.Add(worksheet.Range["A1:B13"], GrapeCity.Documents.Excel.Drawing.RowCol.Columns); shape.Chart.ChartTitle.Text = "Combination Chart"; //change series type GrapeCity.Documents.Excel.Drawing.ISeries series2 = shape.Chart.SeriesCollection[1]; series2.ChartType = GrapeCity.Documents.Excel.Drawing.ChartType.LineMarkers; // Save to an excel file workbook.Save("CombinationChart1.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:B13").Value = New Object(,) { {"Blue Column", "Red Line"}, {75, 20}, {149, 50}, {105, 30}, {55, 80}, {121, 40}, {76, 110}, {128, 50}, {114, 140}, {75, 60}, {105, 170}, {145, 70}, {110, 100} } shape.Chart.SeriesCollection.Add(worksheet.Range("A1:B13"), RowCol.Columns) shape.Chart.ChartTitle.Text = "Combination Chart" 'change series type Dim series2 As ISeries = shape.Chart.SeriesCollection(1) series2.ChartType = ChartType.LineMarkers ' save to an excel file workbook.Save("CombinationChart1.xlsx")