//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); // Prepare data IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Name = "Data"; worksheet.Range["A1:C13"].Value = new object[,] { {null, "Blue Series", "Orange Series"}, {"Jan", 0, 59.1883603948205}, {"Feb", 44.6420211591501, 52.2280901938606}, {"Mar", 45.2174930051225, 49.8093056416248}, {"Apr", 62, 37.3065749226828}, {"May", 53, 34.4312192530766}, {"Jun", 31.8933622049831, 69.7834561753736}, {"Jul", 41.7930895085093, 63.9418103906982}, {"Aug", 73, 57.4049534494926}, {"Sep", 49.8773891668518, 33}, {"Oct", 50, 74}, {"Nov", 54.7658428630216, 22.9587876597096}, {"Dec", 32, 54}, }; // Create a chart sheet and add an area chart IWorksheet chartSheet = workbook.Worksheets.Add(SheetType.Chart); chartSheet.Activate(); chartSheet.Name = "Chart"; Drawing.IShape shape = chartSheet.Shapes.AddChart(Drawing.ChartType.Area, 0, 0, 360, 230); shape.Chart.SeriesCollection.Add(worksheet.Range["A1:C13"], RowCol.Columns); shape.Chart.ChartTitle.Text = "Area Chart"; // Set the chart sheet to fit selection chartSheet.SheetView.FitSelection = true; // Save to an excel file workbook.Save("FitSelection.xlsx");
' Create a new Workbook Dim workbook As New Workbook ' Prepare data Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Name = "Data" worksheet.Range("A1:C13").Value = New Object(,) { {Nothing, "Blue Series", "Orange Series"}, {"Jan", 0, 59.1883603948205}, {"Feb", 44.6420211591501, 52.2280901938606}, {"Mar", 45.2174930051225, 49.8093056416248}, {"Apr", 62, 37.3065749226828}, {"May", 53, 34.4312192530766}, {"Jun", 31.8933622049831, 69.7834561753736}, {"Jul", 41.7930895085093, 63.9418103906982}, {"Aug", 73, 57.4049534494926}, {"Sep", 49.8773891668518, 33}, {"Oct", 50, 74}, {"Nov", 54.7658428630216, 22.9587876597096}, {"Dec", 32, 54} } ' Create a chart sheet and add an area chart Dim chartSheet As IWorksheet = workbook.Worksheets.Add(SheetType.Chart) chartSheet.Activate() chartSheet.Name = "Chart" Dim shape As IShape = chartSheet.Shapes.AddChart(ChartType.Area, 0, 0, 360, 230) shape.Chart.SeriesCollection.Add(worksheet.Range("A1:C13"), RowCol.Columns) shape.Chart.ChartTitle.Text = "Area Chart" ' Set the chart sheet to fit selection chartSheet.SheetView.FitSelection = True ' save to an excel file workbook.Save("FitSelection.xlsx")