// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["A1:D6"].Value = new object[,] { {null, "系列１", "系列２", "系列３"}, {"項目１", 10, 25, 25}, {"項目２", 51, 36, 27}, {"項目３", 52, 85, 30}, {"項目４", 22, 65, 65}, {"項目５", 23, 69, 69} }; // チャートシートを追加 IWorksheet chartSheet = workbook.Worksheets.Add(SheetType.Chart); // チャートシートのメインチャートを追加 Drawing.IShape mainChart = chartSheet.Shapes.AddChart(Drawing.ChartType.ColumnClustered, 100, 100, 200, 200); mainChart.Chart.SeriesCollection.Add(worksheet.Range["A1:D6"]); // チャートシートをアクティブシートにする chartSheet.Activate(); // xlsx ファイルに保存 workbook.Save("AddChartSheet.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range("A1:D6").Value = New Object(,) { {Nothing, "系列１", "系列２", "系列３"}, {"項目１", 10, 25, 25}, {"項目２", 51, 36, 27}, {"項目３", 52, 85, 30}, {"項目４", 22, 65, 65}, {"項目５", 23, 69, 69} } ' チャートシートを追加 Dim chartSheet As IWorksheet = workbook.Worksheets.Add(SheetType.Chart) ' チャートシートのメインチャートを追加 Dim mainChart As IShape = chartSheet.Shapes.AddChart(ChartType.ColumnClustered, 100, 100, 200, 200) mainChart.Chart.SeriesCollection.Add(worksheet.Range("A1:D6")) ' チャートシートをアクティブシートにする chartSheet.Activate() ' xlsx ファイルに保存 workbook.Save("AddChartSheet.xlsx")