Excel API Library for .NET - Sample Browser | Document Solutions | Add a treemap chart

[フレーム]

This sample demonstrates how to create a treemap chart.


 
 //create a new workbook
var workbook = new GrapeCity.Documents.Excel.Workbook();
IWorksheet worksheet = workbook.Worksheets[0];
worksheet.Range["A1:D16"].Value = new object[,]
{
 {"Quarter", "Month", "Week", "Output"},
 {"1st", "Jan", null, 3.5},
 {null, "Feb", "Week1", 1.2},
 {null, null, "Week2", 0.8},
 {null, null, "Week3", 0.6},
 {null, null, "Week4", 0.5},
 {null, "Mar", null, 1.7 },
 {"2st", "Apr", null, 1.1},
 {null, "May", null, 0.8},
 {null, "Jun", null, 0.3},
 {"3st", "July", null, 0.7},
 {null, "Aug", null, 0.6},
 {null, "Sept", null, 0.1},
 {"4st", "Oct", null, 0.5},
 {null, "Nov", null, 0.4},
 {null, "Dec", null, 0.3},
};
// Create a treemap chart.
IShape shape = worksheet.Shapes.AddChart(ChartType.Treemap, 300, 20, 300, 200);
shape.Chart.SeriesCollection.Add(worksheet.Range["A1:D16"]);
// Set the parent data labels are displayed as banners.
shape.Chart.SeriesCollection[0].ParentDataLabelOption = ParentDataLabelOptions.Banner;
// Modify chart title text.
shape.Chart.ChartTitle.Text = "Annual Report";
 
// Save to an excel file
workbook.Save("AddTreeMapChart.xlsx");


 
 ' Create a new Workbook
Dim workbook As New Workbook
Dim worksheet As IWorksheet = workbook.Worksheets(0)
worksheet.Range("A1:D16").Value = New Object(,) {
 {"Quarter", "Month", "Week", "Output"},
 {"1st", "Jan", Nothing, 3.5},
 {Nothing, "Feb", "Week1", 1.2},
 {Nothing, Nothing, "Week2", 0.8},
 {Nothing, Nothing, "Week3", 0.6},
 {Nothing, Nothing, "Week4", 0.5},
 {Nothing, "Mar", Nothing, 1.7},
 {"2st", "Apr", Nothing, 1.1},
 {Nothing, "May", Nothing, 0.8},
 {Nothing, "Jun", Nothing, 0.3},
 {"3st", "July", Nothing, 0.7},
 {Nothing, "Aug", Nothing, 0.6},
 {Nothing, "Sept", Nothing, 0.1},
 {"4st", "Oct", Nothing, 0.5},
 {Nothing, "Nov", Nothing, 0.4},
 {Nothing, "Dec", Nothing, 0.3}
}
'Create a treemap chart.
Dim shape As IShape = worksheet.Shapes.AddChart(ChartType.Treemap, 300, 20, 300, 200)
shape.Chart.SeriesCollection.Add(worksheet.Range("A1:D16"))
'Set the parent data labels are displayed as banners.
shape.Chart.SeriesCollection(0).ParentDataLabelOption = Drawing.ParentDataLabelOptions.Banner
'Modify chart title text.
shape.Chart.ChartTitle.Text = "Annual Report"
 
' save to an excel file
workbook.Save("AddTreeMapChart.xlsx")