５．MSChart の系列の内部の色、パターン、パターンの色の設定

１．MSChart の系列の内部の色(棒グラフの棒の色)を設定 ２．MSChart の系列の内部のパターンの設定 　　グラフの表示を印刷用にモノクロ(白黒)で表示 ３．MSChart の系列の内部のパターンの色の設定 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　：条件は、１．MSChart での基本的な設定(表示データの設定・グラフの種類の設定)の表示環境で。 　　　　：下記、コードは、sChartViewSet プロシージャ内に追加記入願います。

１．MSChart の系列の内部の色(棒グラフの棒の色)を設定

'系列の内部の色(棒グラフの棒の色)を設定 　　Dim i As Long 　　For i = 1 To MSChart1.Plot.SeriesCollection.Count 　　　　With MSChart1.Plot.SeriesCollection(i).DataPoints(-1).Brush 　　　　　　'色の自動設定を解除します。 　　　　　　.FillColor.Automatic = False 　　　　　　'色を設定します。 　　　　　　If i = 1 Then　 '国語 　　　　　　　　.FillColor.Set 200, 0, 200 　　　　　　End If 　　　　　　If i = 2 Then　 '数学 　　　　　　　　.FillColor.Set 218, 165, 32 　　　　　　End If 　　　　　　If i = 3 Then　 '英語 　　　　　　　　.FillColor.Set 0, 129, 128 　　　　　　End If 　　　　End With 　　Next i 　　図１．系列の内部の色(棒グラフの棒の色)を設定結果

２．MSChart の系列の内部のパターンの設定

Dim i As Long 　　MSChart1.Backdrop.Fill.Brush.Style = VtBrushStyleSolid　　　'背景色の塗りつぶしの設定 　　MSChart1.Backdrop.Fill.Brush.FillColor.Set 255, 255, 255　　'背景色の設定 　　For i = 1 To MSChart1.Plot.SeriesCollection.Count 　　　　With MSChart1.Plot.SeriesCollection(i).DataPoints(-1).Brush 　　　　　　'表示スタイルをパターン表示にします 　　　　　　.Style = VtBrushStylePattern 　　　　　　'塗りつぶしパターンを決定します 　　　　　　If i = 1 Then 　　　　　　　　.Index = VtBrushPattern50Percent　　'50% パターンカラー 　　　　　　ElseIf i = 2 Then 　　　　　　　 .Index = VtBrushPatternChecks　　　　'チェック模様 　　　　　　Else 　　　　　　　 .Index = VtBrushPatternGrid　　　　　'グリッド模様 　　　　　　End If 　　　　　　'塗りつぶす色の自動設定を解除します 　　　　　　.FillColor.Automatic = False 　　　　　　'塗りつぶす色を黒に設定します 　　　　　　.FillColor.Set 0, 0, 0 　　　　　　'グラフ自体の色の自動設定を解除します 　　　　　　.PatternColor.Automatic = False 　　　　　　'グラフ自体の色を白に設定します 　　　　　　.PatternColor.Set 255, 255, 255 　　　　End With 　　Next i 　　図２．系列の内部のパターンを印刷用にモノクロでの設定結果

３．MSChart の系列の内部のパターンの色の設定

With MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush 　　　　'ブラシタイプを設定します。(国語だけ設定) 　　　　.Style = VtBrushStylePattern　　　　'ビットマップパターンブラシ 　　　　'ブラシで使用されるパターンまたはハッチングを設定します。 　　　　.Index = VtBrushPatternChecks　　　 'チェック模様 　　　　.PatternColor.Set 255, 255, 255　　 '白色の部分 　　End With 　　With MSChart1.Plot.SeriesCollection(3).DataPoints(-1).EdgePen 　　　　'縁の線種を設定(反映されない) 　　　　.Style = VtPenStyleDotted 　　　　'系列の線 / ふちの幅の設定(英語だけ太く設定) 　　　　.Width = 40 　　　　'系列の線 / ふちの色の設定(英語だけ赤色に設定) 　　　　.VtColor.Set 255, 0, 0 　　End With 　　図３．上記実行結果

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

MSChart コントロール　チャートコントロール　グラフ グラフの表示を印刷用にモノクロ(白黒)で表示