- 日時： 2007/07/26 13:27
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：グラフをモノクロで表示,白黒,,,, *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん グラフの表示を印刷用にモノクロ表示 2007/07/26
-----------------------------------------------------------------------------------
'★追加部分
下記をsChartViewSet() プロシージャ内に追加して下さい。
'------------------- グラフの表示を印刷用にモノクロ表示 ----------------------
Dim s As series
For Each s In MSChart1.Plot.SeriesCollection
With s.DataPoints(-1).Brush
'表示スタイルをパターン表示にします
.Style = VtBrushStylePattern
'塗りつぶしパターンを決定します
If s.LegendText = "国語" Then
.Index = VtBrushPattern50Percent ' 50% パターン カラー
ElseIf s.LegendText = "数学" 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
'---------------------------------------------------------------
★上記実行図
http://hanatyan.sakura.ne.jp/samplepic/chartno18-1.gif
|
グラフの表示を印刷用にモノクロ(白黒)で表示(VB6.0)