PowerTools SPREAD for Windows Forms 10.0J
ShowMeanLine プロパティ


選択された系列の箱の平均を接続する線を表示するかどうかを取得または設定します。
構文
'Declaration
 
Public Property ShowMeanLine As Boolean
'使用法
 
Dim instance As BoxWhiskerSeries
Dim value As Boolean
 
instance.ShowMeanLine = value
 
value = instance.ShowMeanLine
public bool ShowMeanLine {get; set;}
解説
このプロパティをtrueに設定すると、選択された系列の箱の平均を接続する線が表示されます。
次のサンプルコードは、箱ひげ図を作成します。
fpSpread1.ActiveSheet.Cells[0, 1].Text = "Cheese";
fpSpread1.ActiveSheet.Cells[0, 2].Text = "Store1";
fpSpread1.ActiveSheet.Cells[0, 3].Text = "Store2";
fpSpread1.ActiveSheet.Cells[0, 4].Text = "Store3";
fpSpread1.ActiveSheet.Cells[1, 1].Text = "Asiago";
fpSpread1.ActiveSheet.Cells[2, 1].Text = "Gouda";
fpSpread1.ActiveSheet.Cells[3, 1].Text = "Havarti";
fpSpread1.ActiveSheet.Cells[4, 1].Text = "Swiss";
fpSpread1.ActiveSheet.Cells[5, 1].Text = "Asiago";
fpSpread1.ActiveSheet.Cells[6, 1].Text = "Gouda";
fpSpread1.ActiveSheet.Cells[7, 1].Text = "Havarti";
fpSpread1.ActiveSheet.Cells[8, 1].Text = "Swiss";
fpSpread1.ActiveSheet.Cells[9, 1].Text = "Asiago";
fpSpread1.ActiveSheet.Cells[10, 1].Text = "Gouda";
fpSpread1.ActiveSheet.Cells[11, 1].Text = "Havarti";
fpSpread1.ActiveSheet.Cells[12, 1].Text = "Swiss";
fpSpread1.ActiveSheet.Cells[1, 2].Value = 20;
fpSpread1.ActiveSheet.Cells[2, 2].Value = 25;
fpSpread1.ActiveSheet.Cells[3, 2].Value = 21;
fpSpread1.ActiveSheet.Cells[4, 2].Value = 30;
fpSpread1.ActiveSheet.Cells[5, 2].Value = 10;
fpSpread1.ActiveSheet.Cells[6, 2].Value = 26;
fpSpread1.ActiveSheet.Cells[7, 2].Value = 18;
fpSpread1.ActiveSheet.Cells[8, 2].Value = 28;
fpSpread1.ActiveSheet.Cells[9, 2].Value = 12;
fpSpread1.ActiveSheet.Cells[10, 2].Value = 20;
fpSpread1.ActiveSheet.Cells[11, 2].Value = 17;
fpSpread1.ActiveSheet.Cells[12, 2].Value = 35;
fpSpread1.ActiveSheet.Cells[1, 3].Value = 15;
fpSpread1.ActiveSheet.Cells[2, 3].Value = 18;
fpSpread1.ActiveSheet.Cells[3, 3].Value = 19;
fpSpread1.ActiveSheet.Cells[4, 3].Value = 22;
fpSpread1.ActiveSheet.Cells[5, 3].Value = 10;
fpSpread1.ActiveSheet.Cells[6, 3].Value = 19;
fpSpread1.ActiveSheet.Cells[7, 3].Value = 15;
fpSpread1.ActiveSheet.Cells[8, 3].Value = 25;
fpSpread1.ActiveSheet.Cells[9, 3].Value = 14;
fpSpread1.ActiveSheet.Cells[10, 3].Value = 19;
fpSpread1.ActiveSheet.Cells[11, 3].Value = 16;
fpSpread1.ActiveSheet.Cells[12, 3].Value = 24;
fpSpread1.ActiveSheet.Cells[1, 4].Value = 5;
fpSpread1.ActiveSheet.Cells[2, 4].Value = 12;
fpSpread1.ActiveSheet.Cells[3, 4].Value = 20;
fpSpread1.ActiveSheet.Cells[4, 4].Value = 25;
fpSpread1.ActiveSheet.Cells[5, 4].Value = 8;
fpSpread1.ActiveSheet.Cells[6, 4].Value = 10;
fpSpread1.ActiveSheet.Cells[7, 4].Value = 11;
fpSpread1.ActiveSheet.Cells[8, 4].Value = 22;
fpSpread1.ActiveSheet.Cells[9, 4].Value = 13;
fpSpread1.ActiveSheet.Cells[10, 4].Value = 12;
fpSpread1.ActiveSheet.Cells[11, 4].Value = 15;
fpSpread1.ActiveSheet.Cells[12, 4].Value = 21;
fpSpread1.ActiveSheet.AddChart(new FarPoint.Win.Spread.Model.CellRange(0, 1, 13, 4), typeof(FarPoint.Win.Chart.ClusteredBoxWhiskerSeries), 550, 450, 300, 0);
FarPoint.Win.Chart.ClusteredBoxWhiskerSeries cboxseries = (FarPoint.Win.Chart.ClusteredBoxWhiskerSeries)fpSpread1.Sheets[0].Charts[0].Model.PlotAreas[0].Series[0];
foreach(FarPoint.Win.Chart.BoxWhiskerSeries boxseries in cboxseries.Series)
{
    boxseries.ShowInnerPoints = true;
    boxseries.ShowMeanLine = true;
    boxseries.ShowMeanMarkers = true;
    boxseries.ShowOutlierPoints = true;
}
FpSpread1.ActiveSheet.Cells(0, 1).Text = "Cheese"
FpSpread1.ActiveSheet.Cells(0, 2).Text = "Store1"
FpSpread1.ActiveSheet.Cells(0, 3).Text = "Store2"
FpSpread1.ActiveSheet.Cells(0, 4).Text = "Store3"
FpSpread1.ActiveSheet.Cells(1, 1).Text = "Asiago"
FpSpread1.ActiveSheet.Cells(2, 1).Text = "Gouda"
FpSpread1.ActiveSheet.Cells(3, 1).Text = "Havarti"
FpSpread1.ActiveSheet.Cells(4, 1).Text = "Swiss"
FpSpread1.ActiveSheet.Cells(5, 1).Text = "Asiago"
FpSpread1.ActiveSheet.Cells(6, 1).Text = "Gouda"
FpSpread1.ActiveSheet.Cells(7, 1).Text = "Havarti"
FpSpread1.ActiveSheet.Cells(8, 1).Text = "Swiss"
FpSpread1.ActiveSheet.Cells(9, 1).Text = "Asiago"
FpSpread1.ActiveSheet.Cells(10, 1).Text = "Gouda"
FpSpread1.ActiveSheet.Cells(11, 1).Text = "Havarti"
FpSpread1.ActiveSheet.Cells(12, 1).Text = "Swiss"
FpSpread1.ActiveSheet.Cells(1, 2).Value = 20
FpSpread1.ActiveSheet.Cells(2, 2).Value = 25
FpSpread1.ActiveSheet.Cells(3, 2).Value = 21
FpSpread1.ActiveSheet.Cells(4, 2).Value = 30
FpSpread1.ActiveSheet.Cells(5, 2).Value = 10
FpSpread1.ActiveSheet.Cells(6, 2).Value = 26
FpSpread1.ActiveSheet.Cells(7, 2).Value = 18
FpSpread1.ActiveSheet.Cells(8, 2).Value = 28
FpSpread1.ActiveSheet.Cells(9, 2).Value = 12
FpSpread1.ActiveSheet.Cells(10, 2).Value = 20
FpSpread1.ActiveSheet.Cells(11, 2).Value = 17
FpSpread1.ActiveSheet.Cells(12, 2).Value = 35
FpSpread1.ActiveSheet.Cells(1, 3).Value = 15
FpSpread1.ActiveSheet.Cells(2, 3).Value = 18
FpSpread1.ActiveSheet.Cells(3, 3).Value = 19
FpSpread1.ActiveSheet.Cells(4, 3).Value = 22
FpSpread1.ActiveSheet.Cells(5, 3).Value = 10
FpSpread1.ActiveSheet.Cells(6, 3).Value = 19
FpSpread1.ActiveSheet.Cells(7, 3).Value = 15
FpSpread1.ActiveSheet.Cells(8, 3).Value = 25
FpSpread1.ActiveSheet.Cells(9, 3).Value = 14
FpSpread1.ActiveSheet.Cells(10, 3).Value = 19
FpSpread1.ActiveSheet.Cells(11, 3).Value = 16
FpSpread1.ActiveSheet.Cells(12, 3).Value = 24
FpSpread1.ActiveSheet.Cells(1, 4).Value = 5
FpSpread1.ActiveSheet.Cells(2, 4).Value = 12
FpSpread1.ActiveSheet.Cells(3, 4).Value = 20
FpSpread1.ActiveSheet.Cells(4, 4).Value = 25
FpSpread1.ActiveSheet.Cells(5, 4).Value = 8
FpSpread1.ActiveSheet.Cells(6, 4).Value = 10
FpSpread1.ActiveSheet.Cells(7, 4).Value = 11
FpSpread1.ActiveSheet.Cells(8, 4).Value = 22
FpSpread1.ActiveSheet.Cells(9, 4).Value = 13
FpSpread1.ActiveSheet.Cells(10, 4).Value = 12
FpSpread1.ActiveSheet.Cells(11, 4).Value = 15
FpSpread1.ActiveSheet.Cells(12, 4).Value = 21
FpSpread1.ActiveSheet.AddChart(New FarPoint.Win.Spread.Model.CellRange(0, 1, 13, 4), GetType(FarPoint.Win.Chart.ClusteredBoxWhiskerSeries), 550, 450, 300, 0)
Dim cboxseries As FarPoint.Win.Chart.ClusteredBoxWhiskerSeries = DirectCast(FpSpread1.Sheets(0).Charts(0).Model.PlotAreas(0).Series(0), FarPoint.Win.Chart.ClusteredBoxWhiskerSeries)
For Each boxseries As FarPoint.Win.Chart.BoxWhiskerSeries In cboxseries.Series
    boxseries.ShowInnerPoints = True
    boxseries.ShowMeanLine = True
    boxseries.ShowMeanMarkers = True
    boxseries.ShowOutlierPoints = True
Next
参照

BoxWhiskerSeries クラス
BoxWhiskerSeries メンバ

 

 


© 2004-2017, GrapeCity inc. All rights reserved.