投稿日	： 2003/07/23(Wed) 05:41
投稿者	： Taka
Ｅメール	：
ＵＲＬ	：
タイトル	： ありがとうございました！

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

★ - 恐縮ですが・・・ - Taka 07/22-22:20No.4981
• Re: 恐縮ですが・・・ - LESIA 07/23-04:31 No.4982
  • ありがとうございました！ - Taka 07/23-05:41 No.4983
    • Re: ありがとうございました！ - 文句たらたら 07/23-07:40 No.4984
      • Re^2: ありがとうございました！ - Taka 07/23-08:11 No.4985
        • Re^3: ありがとうございました！ - 花ちゃん 07/23-08:59 No.4986
          • Re^4: ありがとうございました！ - Taka 07/24-02:15 No.5005
        • Re^3: ありがとうございました！ - LESIA 07/23-09:02 No.4987
          • Re^4: ありがとうございました！ - Taka 07/24-02:20 No.5006