Excel API Library for .NET - Sample Browser | Document Solutions | Convert chart to image

[フレーム]

Refer to the following example code to see how to convert a chart in spreadsheet to an image.


 
 // 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()