- 日時： 2007/07/31 08:41
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：最大値線,最小値線,平均値線,標準偏差線,トレンド線,統計線,系列の排除 *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん 系列を排除及び系列を非表示及び統計線を色々表示 2007/07/31
-----------------------------------------------------------------------------------
下記をsChartViewSet() プロシージャ内に追加して下さい。
'★追加部分
'------------------- 系列を排除/非表示・統計線を表示 --------------------
'系列 2 を非表示にする
MSChart1.Plot.SeriesCollection(2).Position.Hidden = True
'系列 3 を排除する
MSChart1.Plot.SeriesCollection(3).Position.Excluded = True
With MSChart1.Plot.SeriesCollection.Item(1).StatLine
'統計線を設定します。
'下記の Flag の設定は、１系列に対して１種類しか表示出来ません。
'（下記の定数の中から１つ選択して下さい）
.Flag = VtChStatsMaximum '系列の最小値を表示します。
'.Flag = VtChStatsMinimum '系列の最小値を表示します。
'.Flag = VtChStatsMean '系列中の値の数学的平均を表示します。
'.Flag = VtChStatsStddev '系列中の値の標準偏差を表示します。
'.Flag = VtChStatsRegression '系列の値が示すトレンド線を表示します。
'線の種類を決めます。
.Style(VtChStatsMaximum) = VtPenStyleDashDitDit
'線の色の自動設定を解除します。
.VtColor.Automatic = False
'色を設定します。
.VtColor.Set 0, 0, 255
'線の幅を設定します。
.Width = 50
End With
'------------------------------------------------------------------------------------
MSChart1 コントロールには、MSChart1 コントロール上の任意の位置に Line を引くような
メソッドやプロパティは用意されておりません。（文字列も同様です。）
MSChart1 コントロール で描画したものをPictureBox上に転送してPictureBox 上で加工する
事なるかと思いますが、それも色々条件が限定されます。
-------------------------------------------------------------------------------------
上記コードの実行図
http://hanatyan.sakura.ne.jp/samplepic/Chart026.htm
|
系列を排除及び系列を非表示及び統計線を色々表示(VB6.0)