// Create a png file stream FileStream outputStream = new FileStream("ConvertChartToImage.png", FileMode.Create); //create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; GrapeCity.Documents.Excel.Drawing.IShape chart = worksheet.Shapes.AddChart(GrapeCity.Documents.Excel.Drawing.ChartType.Area, 20, 20, 360, 230); worksheet.Range["A20:C32"].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 }, }; chart.Chart.SeriesCollection.Add(worksheet.Range["A20:C32"], GrapeCity.Documents.Excel.Drawing.RowCol.Columns); chart.Chart.ChartTitle.Text = "Area Chart"; // Save the chart as image to a stream. chart.ToImage(outputStream, ImageType.PNG); // Close the image stream outputStream.Close();
' Create a png file stream Dim outputStream = File.Create("ConvertChartToImage.png") ' Create a new Workbook Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range("A20:C32").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} } With worksheet.Shapes.AddChart(ChartType.Area, 20, 20, 360, 230) .Chart.SeriesCollection.Add(worksheet.Range("A20:C32"), RowCol.Columns) .Chart.ChartTitle.Text = "Area Chart" ' Save the chart as image to a stream. .ToImage(outputStream, ImageType.PNG) End With ' close the image stream outputStream.Close()