VBA メモリ不足 凡例の表示 されない

Question

VBAでグラフを作成したのですが、判例を表示させようとすると、以下のエラーメッセージが
表示されてしまいます。

実行時エラー７
メモリが不足しています

この場合ですが、コードをどのように書き直したらよいでしょうか
解決方法としてなにがあるでしょうか？
不勉強で申し訳ありませんがよろしくお願いします。

'###変数定義###
'グラフ作成用ループカウンター
Dim i As Long
'項目名用ループカウンター
Dim x As Long
'ワークシート処理用
Dim WS As Worksheet
'最終行取得
Dim EndRow As Long
'最終列取得
Dim EndCol As Long
'ワークシート代入用変数
Dim sh As Worksheet
Dim flag As Long

'「graph」の有無を確認しなければ作成しデータを削除
For Each WS In Worksheets

    If WS.Name = "graph" Then
        Application.DisplayAlerts = False
        WS.Delete
        Application.DisplayAlerts = True
        Exit For
    End If
Next WS

'ワークシートアクティブ
Worksheets.Add
ActiveSheet.Name = "graph"

'シート指定用変数
Set sh = Sheets("data")

'グラフ作成に必要な最終列を取得
EndCol = sh.Cells(2, Columns.Count).End(xlToLeft).Column


'初期値　セル[F1]の No1_接続成功率(発信＋着信)から開始するため
x = 6
                   
'グラフを一項目づつ作成するためのループ
For i = 2 To EndCol
    'グラフ作成を行うためシートを活性
    Sheets("graph").Activate
    'グラフ作成
        With ActiveSheet.Shapes.AddChart.Chart
            'グラフ種類設定
            .ChartType = xlLine
            'グラフ範囲指定
            .SetSourceData Source:=Union(sh.Range(sh.Range("C2"), sh.Cells(Rows.Count, 4).End(xlUp)), _
            sh.Range((sh.Cells(2, x)), sh.Cells(Rows.Count, x).End(xlUp)))
            
            'グラフタイトル表示
            .HasTitle = True
            
            'タイトル文字列設定
            .ChartTitle.Text = sh.Cells(1, x)

            '凡例を追加 (現状エラーが起きる　== メモリーが足りない)
           '.Name = Range("B2")
            'グラフ位置の設定
            .Parent.Top = Range("B" & ((i - 2) * 20 + 2)).Top
            .Parent.Left = Range("B" & ((i - 2) * 15 + 2)).Left
    
            '判例を追加
            ' .Name = Range("B2")

        'グラフ作成用
        End With

        With ActiveSheet.ChartObjects(i - 1).Chart
                If .HasLegend = False Then .HasLegend = True    ''凡例を表示する
                .Legend.Position = xlLegendPositionTop          ''凡例を上に表示する
                .Legend.IncludeInLayout = False                 ''凡例をグラフに重ねる
                With .Legend.Format.Fill
                    .Visible = msoTrue                          ''凡例を塗りつぶします
                    .ForeColor.RGB = RGB(255, 0, 0)             ''赤色
                    .ForeColor.TintAndShade = 0.5               ''明暗の設定
                End With
            End With
'#######################         
        'グラフサイズ設定
        With ActiveSheet.ChartObjects
            .Height = 290
            .Width = 1000
        End With
'グラフ項目移動用カウンター
x = x + 1
Next i
'ループ終了
    MsgBox "完了しました"
End Sub
コード

Comments

[snowdropAPP]

https://vbabeginner.net/how-to-deal-with-error-7-insufficient-memory/　ここよんでください

[jinoji]

.Name = Range("B2") のところでは何をしたいのですか？

Answer 1

Chart.Name プロパティ (Excel)

オブジェクトの名前を表す文字列型 (String) の値を取得または設定します。

構文
式.名前

expression は Chart オブジェクトを表す変数です。

解説
このプロパティは、グラフ オブジェクト (埋め込みグラフ) に対しては、値の取得のみ可能です。

Comments

[tamura0425]

ありがとうございました。