- 日時： 2007/07/24 11:03
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：X軸のタイトル及び脚注の設定 *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん X軸のタイトル及び脚注の設定 2007/07/24
-----------------------------------------------------------------------------------
下記をsChartViewSet() プロシージャ内に追加して下さい。
'★追加部分
'------------ X軸のタイトル(生徒名)及び脚注(テストの実施日)の設定 -----------------
With MSChart1.Plot.Axis(VtChAxisIdX).AxisTitle
'タイトルの設定
.Text = "生 徒 名"
'タイトルのフォントサイズを設定
.VtFont.Size = 12
'タイトルのフォントカラーを設定(緑色)
.VtFont.VtColor.Set 0, 255, 0
'タイトルのフォントを太字に設定
.VtFont.Style = VtFontStyleBold
'タイトル（生徒名）にフレームをつけます。
.Backdrop.Frame.FrameColor.Set 0, 0, 255 'フレームを青で作成
.Backdrop.Frame.Style = VtFrameStyleSingleLine '1重線で囲う
'X軸のタイトルを縦向き表示
'.TextLayout.Orientation = VtOrientationVertical '縦書きで表示
.TextLayout.Orientation = VtOrientationHorizontal '横書きで表示
'---------------------------------------------------------------------------
'.TextLayout.VertAlignment = VtVerticalAlignmentBottom '有効にならない
.TextLayout.HorzAlignment = VtHorizontalAlignmentRight '有効にならない
'従って、X軸の中心以外の場所で表示できない。
End With
'脚注の設定
With MSChart1
.FootnoteText = "このテストは平成19年7月24日実施"
.Footnote.VtFont.VtColor.Set 0, 255, 0
.Footnote.VtFont.Size = 12
End With
--------------------------------------------------------------------------------
★上記実行図
http://hanatyan.sakura.ne.jp/samplepic/chartno10-1.gif
|
X軸のタイトル及び脚注の設定(VB6.0)