２．MSChart の外観・凡例・タイトルに関する設定方法

１．MSChart のグラフエリア及びプロットエリア部分の設定 ２．MSChart の凡例に関する設定 ３．MSChart のタイトル関係の設定 ４．MSChart の X 及び Y 軸タイトルと脚注の設定 ５．　 ６．

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

１．MSChart のグラフエリア及びプロットエリア部分の設定

図１．下記コードの実行結果 　 　　'グラフエリア関係の設定 　　With MSChart1 　　　　'１．グラフエリアの背景色を設定(薄い黄色の部分) 　　　　.Backdrop.Fill.Brush.Style = VtBrushStyleSolid　　　'背景色の塗りつぶしの設定 　　　　.Backdrop.Fill.Brush.FillColor.Set 255, 255, 150　　'背景色の設定 　　　　'２．グラフエリアのフレーム枠の設定 　　　　.Backdrop.Frame.Style = VtFrameStyleDoubleLine　　　'枠線の設定 　　　　.Backdrop.Shadow.Style = VtShadowStyleDrop　　　　　'枠の部分に影を付ける 　　　　.Backdrop.Frame.FrameColor.Set 0, 0, 255　　　　　　'枠線の色を青色に設定 　　　　.Backdrop.Frame.Width = 70　　　　　　　　　　　　　'枠線の幅()を設定 　　End With 　　'プロットエリア部分の設定 　　With MSChart1.Plot 　　　　'３．プロットエリアの背景色を設定(薄い水色の部分) 　　　　.Wall.Brush.Style = VtBrushStyleSolid　　　　　　　 '塗りつぶし 　　　　.Wall.Brush.FillColor.Set 200, 255, 255　　　　　　 '背景色の設定 　 End With 図１．を見ながらコードを見て頂ければどの設定がどの部分かがよく分かるかと思います。 ここでの Backdrop への設定は有効に働くようです。 詳細な設定については、各定数をご覧になって下さい。定数は、自動メンバー表示等で表示されますし、付属のヘルプでも記載されています。 ネット上を検索すれば、.NET 2003 用のコードと共に記載されているのが見つかります。 定数に無いような設定は、できないものと諦めて他の方法を取って下さい。(掲示板で質問しても出来ないものは回答も得られないので。)

２．MSChart の凡例に関する設定

図２．凡例の設定結果 　 　　'凡例関係の設定 　　With MSChart1 　　　　'凡例文字の設定(変更したい場合等) 　　　　.Plot.SeriesCollection(1).LegendText = "国語です" 　　　　.Plot.SeriesCollection(2).LegendText = "数学だよ" 　　　　.Plot.SeriesCollection(3).LegendText = "英語かよ" 　　　　.Legend.VtFont.VtColor.Set 255, 0, 0 　　　　.Legend.VtFont.Style = VtFontStyleBold 　　　　'凡例の表示位置を設定 　　　　.Legend.Location.LocationType = VtChLocationTypeRight 　　　　'凡例を表示する、非表示の場合 = False 　　　　.ShowLegend = True 　　End With 凡例の表示位置は、上下、左右、四隅の８カ所とVtChLocationTypeCustomに設定する事で指定位置に表示できるようです。 尚、下記の設定については、現在エラーが表示され設定できなくなっております。(理由、時期等不明) 凡例にフレームをつけます。 (ここでの、Backdrop プロパティが使用できなくなったようです。) .Legend.Backdrop.Frame.FrameColor.Set 0, 0, 255　　　　'フレームを青で作成 .Legend.Backdrop.Frame.Style = VtFrameStyleDoubleLine　'2重線で囲う .Legend.Backdrop.Frame.Width = 40　　　　　　　　　　　'枠の太さを設定 .Legend.Backdrop.Frame.SpaceColor.Set 255, 0, 0　　　　'2重線の間を赤で塗りつぶしす

３．MSChart のタイトル関係の設定

図３．タイトルの設定結果 　 　　'タイトル関係の設定 　　With MSChart1.Title 　　　　'タイトル文字の設定 　　　　.Text = "期末テスト結果" 　　　　'表示位置 　　　　.TextLayout.HorzAlignment = VtHorizontalAlignmentCenter 　　　　'タイトルを水平方向に表示 　　　　.TextLayout.Orientation = VtOrientationHorizontal 　　　　.VtFont.Name = "MS 明朝" 　　　　'フォントサイズ 　　　　.VtFont.Size = 15 　　　　'フォントスタイル 　　　　.VtFont.Style = VtFontStyleBold 　　　　'図表のフォント効果を設定(アンダーライン) 　　　　.VtFont.Effect = VtFontEffectUnderline 　　　　'タイトルの文字の表示色 　　　　.VtFont.VtColor.Set 255, 0, 0 　　End With 下記の設定については、現在エラーが表示され設定できなくなっております。(理由、時期等不明) 'タイトルの背景のスタイル(使用できなくなったようです) .Backdrop.Fill.Style = VtFillStyleBrush 'タイトルの背景の色(黄色) .Backdrop.Fill.Brush.FillColor.Set 255, 255, 0 'ハッチングを設定 .Backdrop.Fill.Brush.Style = VtBrushStyleHatched 'タイトルの背景に影をつける .Backdrop.Shadow.Style = VtShadowStyleDrop

４．MSChart の X 及び Y 軸タイトルと脚注の設定

図４．下記コード実行結果 　 　　'X軸のタイトル(生徒名)の設定 　　With MSChart1.Plot.Axis(VtChAxisIdX).AxisTitle 　　　　'タイトルの設定 　　　　.Text = "生　徒　名" 　　　　'タイトルのフォントサイズを設定 　　　　.VtFont.Size = 12 　　　　'タイトルのフォントカラーを設定(緑色) 　　　　.VtFont.VtColor.Set 255, 0, 0 　　　　'タイトルのフォントを太字に設定 　　　　.VtFont.Style = VtFontStyleBold 　　　　'X軸のタイトルを縦向き表示 　　　　'.TextLayout.Orientation = VtOrientationVertical　 '縦書きで表示 　　　　.TextLayout.Orientation = VtOrientationHorizontal　'横書きで表示 　　　　'--------------------------------------------------------------------------- 　　　　'Alignment 関係の設定は、デフォルトのままで、変更できない(エラーにはならない) 　　　　'MSChart1.Plot.AutoLayout = False 　　　　'.TextLayout.VertAlignment = VtVerticalAlignmentTop 　　　　.TextLayout.VertAlignment = VtVerticalAlignmentBottom　 '有効にならない 　　　　.TextLayout.HorzAlignment = VtHorizontalAlignmentRight　'有効にならない 　 End With 　　'Y軸のタイトル(点数)の設定 　　With MSChart1.Plot.Axis(VtChAxisIdY).AxisTitle 　　　　.Text = "点　数" 　　　　.VtFont.Size = 12 　　　　.VtFont.VtColor.Set 255, 0, 0 　　　　.VtFont.Style = VtFontStyleBold 　　　　.TextLayout.Orientation = VtOrientationVertical　 '縦書きで表示 　　End With 　　'脚注の設定 　　With MSChart1 　　　　'こちらも同様に Alignment 関係の設定は、デフォルトのままで、変更できない 　　　　.FootnoteText = "このテストは平成19年7月24日実施" 　　　　.Footnote.VtFont.VtColor.Set 0, 0, 255 　　　　.Footnote.VtFont.Size = 12 　　　　.Footnote.TextLayout.VertAlignment = VtVerticalAlignmentTop 　　End With 上記でも、Backdrop プロパティが使用できません。又、 Alignment 関係の設定は、デフォルトのままで、変更できません。 AutoLayout を解除してから設定しても設定値は有効になりません。(これは、当初からです。)

５．

６．

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

MSChart コントロール　チャートコントロール　グラフ　グラフの背景を設定　 MSChart のグラフエリアの設定　プロットエリアの設定　MSChart の凡例の設定　MSChart のタイトルの設定　MSChart の X 軸のタイトルの設定　MSChart の Y 軸のタイトルの設定