vbaで複数データを用いた散布図を作りたいですが、データ数が多すぎて応答なしになります

Question

前提・実現したいこと

vbaで複数データの散布図を自動作成するツールを作っています。
データが1000近くあるため、重すぎて応答なしになってしまいます。

発生している問題・エラーメッセージ

vbaが重くて動かない

該当のソースコード

Sub 散布図作成()


Application.ScreenUpdating = False


Dim ch As Chart
Set ch = ActiveSheet.ChartObjects.Add(10, 0, 400, 300).Chart
ch.ChartType = xlXYScatterLinesNoMarkers




With ch

    .HasTitle = True
    .ChartTitle.Text = "test"
    
    .HasLegend = True
    .Legend.Position = xlLegendPositionBottom
    
End With

For i = 0 To 12

    With ch.SeriesCollection.NewSeries
        .XValues = Range(Cells(68, 7), Cells(Rows.Count, 7))
        .Values = Range(Cells(68, 10 + 7 * i), Cells(Rows.Count, 10 + 7 * i))
        .Name = Cells(i + 2, 1)
        .MarkerStyle = xlNone
        .MarkerBackgroundColor = i + 1
    End With
    
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(i + 1)
        .MarkerStyle = xlNone 'マーカーを非表示
    End With
    
Next

End Sub

試したこと

エクセル内の数式はすべて数値に置き換えました。
画面の更新をオフにしました。

応答なしのままです。

Comments

[meg_]

> 重すぎて応答なしになってしまいます。
しばらく待てば処理が終わりませんか？

[fantata]

読み込むデータを少なくして(iを0to3ぐらい）待ったところ3分ぐらいでグラフが完成しました。しかしそのあとグラフの軸を編集しようとすると一個直すのに３０秒ほどかかってしまいます。何が原因でこんなに遅くなってしまうのでしょうか。

[fantata]

データが12列でも8分ほどで完成しました。ただそのあと軸をいじろうとするとかなり時間がかかってしまいます。

[meg_]

時間はかかるものの動作はしたのですね？状況を質問に追記されると良いかと思います。

データが不明なため分かりませんが、VBAでは動作が重くなるのは仕方がないことかと思います。（マシンスペックにも依るかもしれません）
Python等で処理した方が速くなることが多いでしょう。

[fantata]

ありがとうございます。質問の方自己解決しました。

Answer 1

.XValues = Range(Cells(68, 7), Cells(Rows.Count, 7))
.Values = Range(Cells(68, 10 + 7 * i), Cells(Rows.Count, 10 + 7 * i))
のx軸とy軸のデータ選択で行をエクセルファイルの一番下まで取得していたため、動作がかなり重くなっていたことが分かりました。

x_row = cells(Rows.Count ,7).End(xlup).row
.XValues = Range(Cells(68, 7), Cells(x_row, 7))

のようにしてデータ範囲を適切に選択したところ超絶軽くなりました。
コメントしてくださった皆様ありがとうございました。