パレート図には、棒グラフと折れ線グラフの両方が含まれます。個々の値は降順で棒グラフによって表され、累計が折れ線グラフによって表されます。パレート図は、一連の値の中で、最も重要な項目を際立たせるために使用します。
チャートデザイナを使用したチャートの作成については、「チャートデザイナ」を参照してください。
次のサンプルコードは、パレート図を作成します。
FpSpread1.ActiveSheetView.RowCount = 30; FpSpread1.ActiveSheetView.ColumnCount = 10; FpSpread1.ActiveSheetView.Cells[0, 1].Text = "Test Score"; FpSpread1.ActiveSheetView.SetClipValue(1, 0, 13, 1, "Class1\r\nClass1\r\nClass2\r\nClass2\r\nClass3\r\nClass2\r\nClass3\r\nClass2\r\nClass3\r\nClass2\r\nClass2\r\nClass3"); FpSpread1.ActiveSheetView.SetClipValue(1, 1, 13, 1, "20\r\n35\r\n40\r\n55\r\n80\r\n60\r\n61\r\n85\r\n60\r\n60\r\n64\r\n75"); FpSpread1.ActiveSheetView.AddChart(new FarPoint.Web.Spread.Model.CellRange(0, 0, 13, 2), typeof(FarPoint.Web.Chart.ParetoSeries), 400, 300, 150, 0); FarPoint.Web.Chart.ParetoSeries s = (FarPoint.Web.Chart.ParetoSeries)FpSpread1.ActiveSheetView.Charts[0].Model.PlotAreas[0].Series[0]; s.BinOption.BinSize = 29;
FpSpread1.ActiveSheetView.RowCount = 30 FpSpread1.ActiveSheetView.PageSize = 30 FpSpread1.ActiveSheetView.ColumnCount = 10 FpSpread1.ActiveSheetView.Cells(0, 1).Text = "Test Score" FpSpread1.ActiveSheetView.SetClipValue(1, 0, 13, 1, "Class1" & vbCr & vbLf & "Class1" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3") FpSpread1.ActiveSheetView.SetClipValue(1, 1, 13, 1, "20" & vbCr & vbLf & "35" & vbCr & vbLf & "40" & vbCr & vbLf & "55" & vbCr & vbLf & "80" & vbCr & vbLf & "60" & vbCr & vbLf & "61" & vbCr & vbLf & "85" & vbCr & vbLf & "60" & vbCr & vbLf & "60" & vbCr & vbLf & "64" & vbCr & vbLf & "75") FpSpread1.ActiveSheetView.AddChart(New FarPoint.Web.Spread.Model.CellRange(0, 0, 13, 2), GetType(FarPoint.Web.Chart.ParetoSeries), 400, 300, 150, 0) Dim s As FarPoint.Web.Chart.ParetoSeries = FpSpread1.ActiveSheetView.Charts(0).Model.PlotAreas(0).Series(0) s.BinOption.BinSize = 29