| Microsoft Chart Control のグラフタイトルに関する設定 |
| 下記サンプルは、必ず、CSVファイルを使っての基本的なグラフの表示 をご覧になってからお試しください。 Private Sub Button6_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button6.Click 'Microsoft Chart Control のグラフタイトルに関する設定 Call ChartClar(Chart1) '設定を一旦初期値に戻す。(通常は必要ありません。) With Chart1 For i As Integer = 1 To colums Dim columnName As String = ds.Tables(0).Columns(i).ColumnName.ToString() '系列の設定(国語・数学等) .Series.Add(columnName) 'グラフの種類を縦棒グラフに設定 .Series(columnName).ChartType = DataVisualization.Charting.SeriesChartType.Column 'X 軸のラベルテキストの読込・設定(浅野等の氏名) .Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString() 'グラフ用のデータの読込・設定(点数) .Series(columnName).YValueMembers = columnName Next '■------------------- タイトルを設定 ----------------Start--■ '------------------------------------------------------------------------------- '①標準的なタイトルの表示 .Titles.Add("") 'Title オブジェクトを追加 With .Titles.Item(0) .Alignment = Drawing.ContentAlignment.TopCenter '上部中央に表示 .ForeColor = Color.Red .Font = New Font("ＭＳ Ｐ明朝", 12, FontStyle.Bold Or FontStyle.Underline) .Text = "平成２３年度期末テスト結果" End With '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- '②位置・サイズを指定して枠付きで表示する場合 '.Titles.Add("") 'With .Titles(0) ' .Position.X = 30 '横方向の表示位置(%) ' .Position.Y = 2 '縦方法の表示位置(%) ' .Position.Width = 31 '幅(%) ' .Position.Height = 6 '高さ(%) ' .ForeColor = Color.Red 'タイトルの文字色 ' .Font = New Font("ＭＳ Ｐ明朝", 12, FontStyle.Bold) ' .Text = "平成２３年度期末テスト結果" ' .Alignment = Drawing.ContentAlignment.TopCenter ' .BackColor = Color.Yellow '枠内の背景色 ' .BorderColor = Color.Blue '枠の色 ' .BorderWidth = 1 '枠の太さ ' .ShadowOffset = 4 '枠の影のサイズ 'End With ''下記のようにダミーのタイトルを表示しないと上部に余白ができない。 ''(プロットエリア内に表示されてしまう) '.Titles.Add("Title1") '.Titles(1).Text = "" '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- '③タイトルを使っての目盛りの単位を表示(①と組み合せての表示) .Titles.Add("") With .Titles.Item(1) .Alignment = Drawing.ContentAlignment.TopLeft 'こちらでも概ね表示できる '表示位置を指定する場合 '.Position.Y = 10 'サイズ変更が可能の場合は、画面サイズの％で位置を設定の事 '.Position.X = 12 .Font = New Font("ＭＳ Ｐ明朝", 10, FontStyle.Regular) .Text = "単位：点数" '理由は不明だが最後の1文字が表示されない。 End With '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- '④フレーム内に表示する場合 '下記フレームについては、お好みで選択を '.BorderSkin.SkinStyle = BorderSkinStyle.FrameTitle1 '.BorderSkin.BackColor = Color.Blue '.Titles.Add("") 'Title オブジェクトを追加 'With .Titles.Item(0) ' .Alignment = Drawing.ContentAlignment.TopCenter '上部中央に表示 ' .ForeColor = Color.White ' .Font = New Font("ＭＳ Ｐ明朝", 12, FontStyle.Bold Or FontStyle.Underline) ' .Text = "平成２３年度期末テスト結果" 'End With '------------------------------------------------------------------------------- '■----------------------------------------------------End----■ End With End Sub |
上記コードの実行結果    |
| 上記以外にも、BackImage を使っての表示等ができますが、位置やサイズの指定が微妙に各設定値に影響する等好みの表示設定に合せる事ができず、標準的な表示方法以外は、お薦めできません。(上記②以外ならOK) 又、ラベルのフォントサイズのようにグラフの拡大・縮小に伴ってフォントサイズの自動設定ができないようなので必要なら、独自にプログラムで設定する必要があります。(上記②の枠についても同様です。) |