tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^5: MSCHARTの行ラベルについて
投稿日: 2009/07/29(Wed) 14:06
投稿者花ちゃん
> やっぱり思ったとおりになりません・・・。
> 何か設定が必要なのでしょうか?

思ったとおりになりません では、どのようにならないのか誰にも理解できません。

私が再確認した部分のコードだけ貼り付けても何の解決にもならないでしょう。

新たに Form に MSChart を張り付けて下記のコードをペーストして確認して見て下さい。

Option Explicit

Private Sub Form_Load()
   'フォームのサイズを設定(好みで変更してください)
   Form1.Move 0, 0, 10400, 7000
   'MSChart コントロールの表示サイズを設定
   MSChart1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
   Call sDataOpen       'データの読み込み
   Call sChartViewSet   'グラフの表示設定
End Sub

Private Sub sChartViewSet()
'グラフの表示設定
'------------------- グラフの種類を設定 ----------------------
   '設定しなければ、VtChChartType2dBar となる
   MSChart1.chartType = VtChChartType2dBar       'デフォルトのグラフタイプ(2D棒)
  
' コメントにしなくても問題なし だが見苦しいので今回はコメントにしております
'   With MSChart1
'      .Row = 1
'      'テスト用に長い文字列をセット
'      .RowLabel = "あいうえおかきくけこさしすせそたちつてと"
'   End With
  
   With MSChart1.Plot.Axis(VtChAxisIdX).Labels.Item(1)
      .Auto = False
      .VtFont.Size = 12
      
      '下記では WordWrap が有効にならない。(;_;)
      '(方法があれば教えてください)
      .TextLayout.WordWrap = True
      
      
      '上揃えで表示
      .TextLayout.VertAlignment = VtVerticalAlignmentTop
      '縦書き表示
      .TextLayout.Orientation = VtOrientationVertical
   End With
End Sub


Private Sub sDataOpen()
'グラフ用のデータを作成及び読み込み
   Dim Dat(0 To 5, 0 To 3) As Variant
   Dat(0, 1) = "国語"
   Dat(0, 2) = "数学"
   Dat(0, 3) = "英語"
  
   Dat(1, 0) = "浅野"
   Dat(1, 1) = 69       '国語の点数
   Dat(1, 2) = 81       '数学の点数
   Dat(1, 3) = 73       '英語の点数
  
   Dat(2, 0) = "安室"
   Dat(2, 1) = 87
   Dat(2, 2) = 80
   Dat(2, 3) = 72
  
   Dat(3, 0) = "加藤"
   Dat(3, 1) = 74
   Dat(3, 2) = 82
   Dat(3, 3) = 96
  
   Dat(4, 0) = "斉藤"
   Dat(4, 1) = 71
   Dat(4, 2) = 69
   Dat(4, 3) = 81
  
   Dat(5, 0) = "鈴木"
   Dat(5, 1) = 84
   Dat(5, 2) = 86
   Dat(5, 3) = 75
  
   'グラフに表示する配列データを設定する
   MSChart1.ChartData = Dat()
End Sub

Private Sub Form_Resize()
   'フォームのサイズ変更に合わせて MSChart コントロールの表示サイズも変更する
   MSChart1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。