tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
X軸のタイトル及び脚注の設定(VB6.0) ( No.10 )  [親スレッドへ]
日時: 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




 [スレッド一覧へ] [親スレッドへ]