投稿日 | : 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