投稿日 | : 2003/07/23(Wed) 05:41 |
投稿者 | : Taka |
Eメール | : |
URL | : |
タイトル | : ありがとうございました! |
LESIA様
どうもありがとうございました。インデックスが有効範囲にないと
いうことの意味が少しわかった気がします。そのエラーは解決した
んですが今度は .Data = (y2 - y1) / (x2 - x1) の行でどうしても
オーバーフローになってしまいます。自分なりに過去の質問を見たりし
て改善したつもりですがエラーを修正できませんでした。
コードはこのような感じです。オーバーフローはデータ型を変更したり
する以外に何か改善策はありますか?
Private Sub sChartViewSet()
ReDim DRM(RecordNum) As DRMData
Dim i As Integer
Dim x1, x2, y1, y2 As Integer
Dim z As Integer
With MSChart
.Visible = False
.ChartType = VtChChartType2dXY 'グラフタイプを散布図に設定
.Plot.UniformAxis = False 'グラフを横長に
For i = 1 To RecordNum - 3
x1 = DRM(i).East
x2 = DRM(i - 1).East
y1 = DRM(i).North
y2 = DRM(i - 1).North
.Data = (y2 - y1) / (x2 - x1)
Next i
.Visible = True
End With
For Each Series In MSChart.Plot.SeriesCollection 'すべての系列についてマーカーを非表示し、線を表示します
Series.SeriesMarker.Show = False
Series.ShowLine = True
Next
intChartType = 1
MSChart.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub