マクロでグラフの範囲を変えるとエラーが出ます

質問

およそ12000~15000ほどある2列のデータを散布図で描画し、y値の大きい物だけデータラベルを表示させるマクロを作りました。
最初は全データを表示するようにしていて、その時は上手く動いていたのですが一部のみを表示するように書き直したところ、HasDataLabelの所で「1004：パラメータが無効です」のエラーが出るようになりました。
色々値を変えて調べてみたところRangeで指定する範囲の値によってエラーが出たりでなかったりしていました。およそ3800行辺りを指定するとエラーになるようです。
どう対処すれば良いかまるで分からないので対処法について至急ご教示願います。
以下ソースです。よろしくお願いします。

Option Explicit

Sub makechart()

'変数定義
Dim cmax As Long, i As Long, st As Long, en As Long, cst As Long, cen As Long
Dim x As Double, y As Double
Dim ws1 As Worksheet
Dim alldata As Range, spectrum As Range
Dim ChartObj As Object

Set ws1 = Worksheets("022")
cmax = ws1.Range("A1048576").End(xlUp).Row

'範囲指定
st = 450
en = 500

'セルの初期位置
i = 8
x = Val(Cells(i, 1).Value)

Do While x < st And i <= cmax
i = i + 1

If (i > cmax) Then
MsgBox ("下限値オーバー")
End
End If

x = Val(Cells(i, 1).Value)
Loop

cst = i

Do While x < en And i <= cmax
i = i + 1

If (i > cmax) Then
MsgBox ("上限値オーバー")
End
End If

x = Val(Cells(i, 1).Value)
Loop

cen = i
Set alldata = Range("A8:B" & cmax)

Set spectrum = Range("A" & cst & ":B" & cen)　←この値によってエラーが出たり出なかったりする

With ActiveSheet.Shapes.AddChart.Chart

'散布図追加
.ChartType = xlXYScatter
.SetSourceData spectrum

For i = cst To cmax
x = Val(Cells(i, 1).Value)
y = Val(Cells(i, 2).Value)

If (y > 1000000) Then
.SeriesCollection(1).Points(i).HasDataLabel = True　←ここでエラー
.SeriesCollection(1).Points(i).DataLabel.Text = Str(x)
.SeriesCollection(1).Points(i).DataLabel.Position = xlLabelPositionAbove
End If
Next i

End With

End Sub

回答No.2

roman_holiday · ベストアンサー

もしかして、
For i = cst To cmax　の行が
For i = cst To cen　の間違いじゃないですか？

グラフの元データが　Range("A" & cst & ":B" & cen)　なので、
cen-cst+1個しか散布図の点がないのに、
cmax-cst+1個の点に対してラベルをつけようとしているように見えます。

お礼

再び回答ありがとうございます。
そのように修正したところ、状況が改善されて作りたい物に近づきました。
どうもありがとうございます。

回答No.1

roman_holiday

表示できるデータラベルの最大数は1000個のようです。
一度、マクロを使用せずに散布図を描かせて、
データラベルを追加してみてください。
そうすると上記のようなエラーが出るのでこれに引っかかっているのだと思います。

補足

回答ありがとうございます。マクロ無しでの散布図作成でデータラベルの最大数エラーは確認しました。
ですが、デバッグモードで起動したところ、データラベルを作成するIF文に最初に入ったときにエラーが出ていました。なので、データラベルの最大数とは関係ないのでは無いかと思われます。