// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["A1:B7"].Value = new object[,] { {"ステージ", "数"}, {"見込み顧客", 500}, {"有望見込み顧客", 425}, {"ニーズ分析", 200}, {"見積もり", 150}, {"交渉", 100}, {"取引成立", 90} }; worksheet.Range["A:A"].Columns.AutoFit(); // ファンネルチャートを作成 IShape shape = worksheet.Shapes.AddChart(ChartType.Funnel, 10, 150, 300, 200); shape.Chart.SeriesCollection.Add(worksheet.Range["A1:B7"]); // ファンネルチャートのスタイルを設定 shape.Chart.ChartTitle.Text = "ファンネルチャート"; foreach (var s in shape.Chart.SeriesCollection) { s.DataLabels.Font.Color.RGB = Color.White; } // PDF ファイルに保存 workbook.Save("FunnelChartPdf.pdf");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range("A1:B7").Value = New Object(,) { {"ステージ", "数"}, {"見込み顧客", 500}, {"有望見込み顧客", 425}, {"ニーズ分析", 200}, {"見積もり", 150}, {"交渉", 100}, {"取引成立", 90} } worksheet.Range("A:A").Columns.AutoFit() ' ファンネルチャートを作成 Dim shape As IShape = worksheet.Shapes.AddChart(ChartType.Funnel, 10, 150, 300, 200) shape.Chart.SeriesCollection.Add(worksheet.Range("A1:B7")) ' ファンネルチャートのスタイルを設定 shape.Chart.ChartTitle.Text = "ファンネルチャート" For Each s In shape.Chart.SeriesCollection s.DataLabels.Font.Color.RGB = Color.White Next s ' PDF ファイルに保存 workbook.Save("FunnelChartPdf.pdf")