// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; GrapeCity.Documents.Excel.Drawing.IShape shape = worksheet.Shapes.AddChart(ChartType.Line, 250, 20, 360, 230); worksheet.Range["A1:D4"].Value = new object[,] { { null, "Q1", "Q2", "Q3" }, { "携帯電話", 1330, 2330, 3330 }, { "ノートPC", 4032, 5632, 6197 }, { "タブレット", 6233, 7233, 8233 } }; shape.Chart.SeriesCollection.Add(worksheet.Range["A1:D4"], RowCol.Rows); shape.Chart.HasTitle = false; // 最初の系列を取得 ISeries series1 = shape.Chart.SeriesCollection[0]; // エラーバーを表示 series1.HasErrorBars = true; // 最初の系列のエラーバーの値タイプをカスタムとして設定 series1.YErrorBar.ValueType = ErrorBarType.Custom; series1.YErrorBar.Plus = "={2000}"; series1.YErrorBar.Minus = "={1000}"; // xlsx ファイルに保存 workbook.Save("ConfigCustomErrorBar.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) Dim shape As IShape = worksheet.Shapes.AddChart(ChartType.Line, 250, 20, 360, 230) worksheet.Range("A1:D4").Value = New Object(,) { {Nothing, "Q1", "Q2", "Q3"}, {"携帯電話", 1330, 2330, 3330}, {"ノートPC", 4032, 5632, 6197}, {"タブレット", 6233, 7233, 8233} } shape.Chart.SeriesCollection.Add(worksheet.Range("A1:D4"), RowCol.Rows) shape.Chart.HasTitle = False ' 最初の系列を取得 Dim series1 As ISeries = shape.Chart.SeriesCollection(0) ' エラーバーを表示 series1.HasErrorBars = True ' 最初の系列のエラーバーの値タイプをカスタムとして設定 series1.YErrorBar.ValueType = ErrorBarType.Custom series1.YErrorBar.Plus = "={2000}" series1.YErrorBar.Minus = "={1000}" ' xlsx ファイルに保存 workbook.Save("ConfigCustomErrorBar.xlsx")