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

投稿日: 2005/06/21(Tue) 12:37
投稿者ふふふ
URL
タイトルMSChartの日時データの扱い

MSChartの散布図で、横軸を日時、縦軸をデータ値にとり、飛び飛びの日付に対して与えられるデータ
を表示したいのですが、こちらのHPのサンプルを流用して書いたコードでは、横軸が日時表示にな
りませんでした。よい解決方法がありましたら、アドバイス願います。

    Dim Dat(1, 2) As Double '<-多分、これが原因
    'X
    Dat(0, 0) = CDate("2005/6/19 10:00:01")
    Dat(0, 1) = CDate("2005/6/20 13:00:22")
    Dat(0, 2) = CDate("2005/6/20 14:53:37")
    'Y
    Dat(1, 0) = 100: Dat(1, 1) = 200: Dat(1, 2) = 300
    With MSChart1
        .ColumnCount = 2: .RowCount = 2+1
        For i = 0 To 1
            .Column = i + 1
            For j = 0 To 2
                .Row = j + 1: .Data = Dat(i, j)
            Next j
        Next i
     End With


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

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

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