//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:C17"].Value = new object[,] { { "Area 1", "Column 1", "Column 2" }, { 1350, 120, 75 }, { 1500, 90, 35 }, { 1200, 80, 50 }, { 1300, 80, 80 }, { 1750, 90, 100 }, { 1640, 120, 130 }, { 1700, 120, 95 }, { 1100, 90, 80 }, { 1350, 120, 75 }, { 1500, 90, 35 }, { 1200, 80, 50 }, }; shape.Chart.SeriesCollection.Add(worksheet.Range["A1:C17"], GrapeCity.Documents.Excel.Drawing.RowCol.Columns); shape.Chart.ChartTitle.Text = "Combination Chart"; GrapeCity.Documents.Excel.Drawing.ISeries series1 = shape.Chart.SeriesCollection[0]; GrapeCity.Documents.Excel.Drawing.ISeries series2 = shape.Chart.SeriesCollection[1]; GrapeCity.Documents.Excel.Drawing.ISeries series3 = shape.Chart.SeriesCollection[2]; //change series type series1.ChartType = GrapeCity.Documents.Excel.Drawing.ChartType.Area; series2.ChartType = GrapeCity.Documents.Excel.Drawing.ChartType.ColumnStacked; series3.ChartType = GrapeCity.Documents.Excel.Drawing.ChartType.ColumnStacked; //set axis group series2.AxisGroup = GrapeCity.Documents.Excel.Drawing.AxisGroup.Secondary; series3.AxisGroup = GrapeCity.Documents.Excel.Drawing.AxisGroup.Secondary; //config axis sacle and unit GrapeCity.Documents.Excel.Drawing.IAxis value_axis = shape.Chart.Axes.Item(GrapeCity.Documents.Excel.Drawing.AxisType.Value); GrapeCity.Documents.Excel.Drawing.IAxis value_second_axis = shape.Chart.Axes.Item(GrapeCity.Documents.Excel.Drawing.AxisType.Value, GrapeCity.Documents.Excel.Drawing.AxisGroup.Secondary); value_axis.MaximumScale = 1800; value_axis.MajorUnit = 450; value_second_axis.MaximumScale = 300; value_second_axis.MajorUnit = 75; // Save to an excel file workbook.Save("CombinationChart2.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:C17").Value = New Object(,) { {"Area 1", "Column 1", "Column 2"}, {1350, 120, 75}, {1500, 90, 35}, {1200, 80, 50}, {1300, 80, 80}, {1750, 90, 100}, {1640, 120, 130}, {1700, 120, 95}, {1100, 90, 80}, {1350, 120, 75}, {1500, 90, 35}, {1200, 80, 50} } shape.Chart.SeriesCollection.Add(worksheet.Range("A1:C17"), RowCol.Columns) shape.Chart.ChartTitle.Text = "Combination Chart" Dim series1 As ISeries = shape.Chart.SeriesCollection(0) Dim series2 As ISeries = shape.Chart.SeriesCollection(1) Dim series3 As ISeries = shape.Chart.SeriesCollection(2) 'change series type series1.ChartType = ChartType.Area series2.ChartType = ChartType.ColumnStacked series3.ChartType = ChartType.ColumnStacked 'set axis group series2.AxisGroup = AxisGroup.Secondary series3.AxisGroup = AxisGroup.Secondary 'config axis sacle and unit Dim value_axis As IAxis = shape.Chart.Axes.Item(AxisType.Value) Dim value_second_axis As IAxis = shape.Chart.Axes.Item(AxisType.Value, AxisGroup.Secondary) value_axis.MaximumScale = 1800 value_axis.MajorUnit = 450 value_second_axis.MaximumScale = 300 value_second_axis.MajorUnit = 75 ' save to an excel file workbook.Save("CombinationChart2.xlsx")