// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["A1:B8"].Value = new object[,] { {"日", "降水(mm)"}, {1, 25}, {2, 20}, {3, 5}, {4, CalcError.NA}, {5, 15}, {6, 20}, {7, 20} }; // スタイルを設定 worksheet.Range["A1:B1"].Interior.Color = System.Drawing.Color.FromArgb(142, 169, 219); worksheet.Range["A2:B8"].Interior.Color = System.Drawing.Color.FromArgb(217, 225, 242); worksheet.Range["A1:B8"].Borders.LineStyle = BorderLineStyle.Thin; // チャートを追加 Drawing.IShape shape = worksheet.Shapes.AddChart(Drawing.ChartType.Line, 180, 0, 250, 200); shape.Chart.SeriesCollection.Add(worksheet.Range["A1:B8"], Drawing.RowCol.Columns, true, true); // 空白セルを0として表示するよう設定 shape.Chart.DisplayBlanksAs = DisplayBlanksAs.Zero; shape.Chart.ChartTitle.Text = "DisplayNaAsBlank:False"; // チャートをコピー worksheet.Range["D1:I14"].Copy(worksheet.Range["J1"]); // #N/Aを空のセルとして表示するよう設定 shape.Chart.DisplayNaAsBlank = true; shape.Chart.ChartTitle.Text = "DisplayNaAsBlank:True"; // xlsx ファイルに保存 workbook.Save("DisplayNaAsBlank.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range("A1:B8").Value = New Object(,) { {"日", "降水(mm)"}, {1, 25}, {2, 20}, {3, 5}, {4, CalcError.NA}, {5, 15}, {6, 20}, {7, 20} } ' スタイルを設定 worksheet.Range("A1:B1").Interior.Color = System.Drawing.Color.FromArgb(142, 169, 219) worksheet.Range("A2:B8").Interior.Color = System.Drawing.Color.FromArgb(217, 225, 242) worksheet.Range("A1:B8").Borders.LineStyle = BorderLineStyle.Thin ' チャートを追加 Dim shape As Drawing.IShape = worksheet.Shapes.AddChart(Drawing.ChartType.Line, 180, 0, 250, 200) shape.Chart.SeriesCollection.Add(worksheet.Range("A1:B8"), Drawing.RowCol.Columns, True, True) ' 空白セルを0として表示するよう設定 shape.Chart.DisplayBlanksAs = DisplayBlanksAs.Zero shape.Chart.ChartTitle.Text = "DisplayNaAsBlank:False" ' チャートをコピー worksheet.Range("D1:I14").Copy(worksheet.Range("J1")) ' #N/Aを空のセルとして表示するよう設定 shape.Chart.DisplayNaAsBlank = True shape.Chart.ChartTitle.Text = "DisplayNaAsBlank:True" ' xlsx ファイルに保存 workbook.Save("DisplayNaAsBlank.xlsx")