- 日時： 2007/07/28 10:21
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：MSChart コントロール で凡例を表示する *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん MSChart コントロール で凡例の表示・非表示設定 2007/07/23
-----------------------------------------------------------------------------------
●.LegendText = "国語" に "国 語" だとか元のデータと違う内容を設定すると以後の
系列を判定する場合に変更した内容と照合しないと照合できないので注意して下さい。
下記をsChartViewSet() プロシージャ内に追加して下さい。
Private Sub sChartViewSet()
'グラフの表示設定
'★追加部分
'------------------- 凡例の表示 ----------------------
With MSChart1
'凡例文字の設定
'チャート コントロールの ColumnLabel プロパティを実行時に変更すると、
'キャプションの文字が途切れて表示されてしまいますので下記のように設定
'して下さい。
.Plot.SeriesCollection(1).LegendText = "国語"
.Plot.SeriesCollection(2).LegendText = "数学"
.Plot.SeriesCollection(3).LegendText = "英語"
'凡例にフレームをつけます。
.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重線の間を赤で塗りつぶしす
' '凡例の表示位置を設定
.Legend.Location.LocationType = VtChLocationTypeRight
.ShowLegend = True '凡例を表示する
' .ShowLegend = False '非表示の場合
End With
'----------------------------------------------------------------
End Sub
'表示位置は下記の定数の中から選んで下さい。
VtChLocationTypeTop '上
VtChLocationTypeTopLeft '左上
VtChLocationTypeTopRight '右上
VtChLocationTypeLeft '左
VtChLocationTypeRight '右
VtChLocationTypeBottom '下
VtChLocationTypeBottomLeft '左下
VtChLocationTypeBottomRight '右下
VtChLocationTypeCustom 'カスタム
定数があっても設定が有効にならない場合がありますし、定数が無い設定は出来ないと思って下さい。(質問しても回答が得られない）
-----------------------------------------------------------------------------------
★上記実行図
http://hanatyan.sakura.ne.jp/samplepic/chartno2-1.gif
|
凡例の表示・非表示設定(VB6.0)