パレート図を追加する

ParetoSeriesクラスを使用してパレート図を作成できます。

【実行例】

チャート

C#
Visual Basic

 private void Form1_Load(object sender, System.EventArgs e)
 {
    // シートにデータを設定
    fpSpread1.ActiveSheet.SetClip(0, 0, 1, 2, "質問項目\t件数");
    fpSpread1.ActiveSheet.SetClip(1, 0, 1, 2, "価格\t20");
    fpSpread1.ActiveSheet.SetClip(2, 0, 1, 2, "機能\t26");
    fpSpread1.ActiveSheet.SetClip(3, 0, 1, 2, "不具合\t16");
    fpSpread1.ActiveSheet.SetClip(4, 0, 1, 2, "その他\t2");
    // セル範囲を設定してパレート図を作成します
    fpSpread1.ActiveSheet.AddChart(new FarPoint.Win.Spread.Model.CellRange(0, 0, 5, 2), typeof(FarPoint.Win.Chart.ParetoSeries), 250, 200, 200, 30);
    FarPoint.Win.Chart.ChartModel model = fpSpread1.ActiveSheet.Charts[0].Model;
    // タイトルを表示しない
    model.LabelAreas.Clear();
    // 凡例を表示しない
    model.LegendAreas.Clear();
    FarPoint.Win.Chart.ParetoSeries s = (FarPoint.Win.Chart.ParetoSeries)model.PlotAreas[0].Series[0];
    // 要素の間隔を指定
    s.GapWidth = 0.1f;
    // パレート線の外観を設定
    s.ParetoLine.LineBorder = new FarPoint.Win.Chart.SolidLine(System.Drawing.Color.OrangeRed, 3);
 }

 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' シートにデータを設定
    FpSpread1.ActiveSheet.SetClip(0, 0, 1, 2, "質問項目" + Chr(9) + "件数")
    FpSpread1.ActiveSheet.SetClip(1, 0, 1, 2, "価格" + Chr(9) + "20")
    FpSpread1.ActiveSheet.SetClip(2, 0, 1, 2, "機能" + Chr(9) + "26")
    FpSpread1.ActiveSheet.SetClip(3, 0, 1, 2, "不具合" + Chr(9) + "16")
    FpSpread1.ActiveSheet.SetClip(4, 0, 1, 2, "その他" + Chr(9) + "2")
    ' セル範囲を設定してパレート図を作成します
    FpSpread1.ActiveSheet.AddChart(New FarPoint.Win.Spread.Model.CellRange(0, 0, 5, 2), GetType(FarPoint.Win.Chart.ParetoSeries), 250, 200, 200, 30)
    Dim model As FarPoint.Win.Chart.ChartModel = FpSpread1.ActiveSheet.Charts(0).Model
    ' タイトルを表示しない
    model.LabelAreas.Clear()
    ' 凡例を表示しない
    model.LegendAreas.Clear()
    Dim s As FarPoint.Win.Chart.ParetoSeries = DirectCast(model.PlotAreas(0).Series(0), FarPoint.Win.Chart.ParetoSeries)
    ' 要素の間隔を指定
    s.GapWidth = 0.1
    ' パレート線の外観を設定
    s.ParetoLine.LineBorder = New FarPoint.Win.Chart.SolidLine(System.Drawing.Color.OrangeRed, 3)
 End Sub