グラフをモノクロで表示する（その５）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
グラフの表示をモノクロパターンで表示することでレーザープリンター等のモノクロプリンターでも見やすいグラフを印刷することができます。別途印刷設定と合せてお使い下さい。
　　　　　　　　　　　　 （０２２）
　　　　
Private Sub mnuMonoColor_Click()
'モノクロ表示（クリック毎にパターンが変わる）
　　'別途色指定している所は変更が必要
　　Dim series As Object
　　For Each series In MSChart1.Plot.SeriesCollection
　　　　With series
　　　　　　'表示スタイルをパターン表示にします
　　　　　　.DataPoints(-1).Brush.Style = VtBrushStylePattern
　　　　　　'塗りつぶしパターンをランダムに決定します
　　　　　　.DataPoints(-1).Brush.Index = CInt((18 * Rnd) + 1)
　　　　　　'塗りつぶす色の自動設定を解除します
　　　　　　.DataPoints(-1).Brush.FillColor.Automatic = False
　　　　　　'塗りつぶす色を黒に設定します
　　　　　　.DataPoints(-1).Brush.FillColor.Set 0, 0, 0
　　　　　　'グラフ自体の色の自動設定を解除します
　　　　　　.DataPoints(-1).Brush.PatternColor.Automatic = False
　　　　　　'グラフ自体の色を白に設定します
　　　　　　.DataPoints(-1).Brush.PatternColor.Set 255, 255, 255
　　　　End With
　　Next
End Sub


表示結果からも解りますが、別途色指定している所は変更が必要です。
　表示結果

　　




2002/04/23