VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/02/15(Wed) 15:45
投稿者： MOMO
Ｅメール：
ＵＲＬ：
タイトル： MSChart　3D折れ線

いつも掲示板を拝見し参考にさせていただいています。
今回は、いろいろ試してみたのですが、どうしても解決できないので
アドバイスをいただければ、と思い書き込みさせていただきました。

環境は、Windows XP、 VB6.0(SP6)です。

MSChartの3D折れ線グラフを使用し、グラフを描いています。
流れは下記の通りです。

グローバル変数として2次元配列を宣言し、
Dim G_GraphData(9, 99)　as Double

変数の中のデータを、G_GraphData(Z軸の値,X軸の値)として利用し
表示させようとしています。

MSChartSample3D.chartType = VtChChartType3dLine                          
MSChartSample3D.RowCount = 100
MSChartSample3D.ColumnCount = 10
  
  For I = 0 To MSChartSample3D.ColumnCount - 1
    For j = 0 To MSChartSample3D.RowCount - 1
        MSChartSample3D.Column = I + 1
        MSChartSample3D.Row = j + 1
        MSChartSample3D.Data = G_GraphData(I, j)
      Next j
    Next I

簡単に出来る、と思っていたのですが
実際にやってみるとColumn=1の時はY軸に相当する値がきちんと表示されるのですが、
それ以降は何も表示されないのです。

ちなみに、MSChartSample3D.Dataに直接数値を入力した場合は
Columnの値が1〜10の整数であればきちんと表示されます。

どなたか、原因をご存知ありませんでしょうか？
よろしくお願いいたします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -