VBAでグラフの連続生成 グラフの位置をずらす方法

Question

こんにちは。先日は、グラフの連続作成を行うマクロの構成にご協力頂き、ありがとうございました！グラフの生成はできるようになりましたが、位置合わせがうまく作動しないので質問いたしました。

Sub Macro1()
'
' Macro1 Macro
'
'
maxRow = Range("A1").End(xlDown).Row

For i = 1 To maxRow Step 17


    With ActiveSheet.Shapes.AddChart.Chart
        .ChartType = xlLine
        .SetSourceData Source:=Sheets("updown").Range(Cells(i, 2), Cells(i + 16, 2))
        .Axes(xlValue).MaximumScale = 3 '数値軸の変更

    End With

    With ActiveSheet.ChartObjects
        .Top = Cells(5, 5).Top
        .Left = Cells(5, 5).Left '位置を設定
        '.Top = Range("D" & i).Top
        '.Left = Range("D" & i).Left '位置を設定

        .Height = 200
        .Width = 400 '大きさを設定
    End With

グラフの生成位置に変数を入れるとグラフが書き出しされない問題が発生しています。
以下の部分です。

   With ActiveSheet.ChartObjects
        .Top = Cells(5, 5).Top
        .Left = Cells(5, 5).Left '位置を設定
        '.Top = Range("D" & i).Top
        '.Left = Range("D" & i).Left '位置を設定

        .Height = 200
        .Width = 400 '大きさを設定
    End With

(5.5)の部分を（i,5）のように変数を入れて、グラフの書き出す位置を変更したいのですが、
(i.5)にするとグラフのグラフが書き出されません。エラーも出ないので、どう対応すればいいのか分かりません。

どなたか、原因のわかる方はいらっしゃいませんでしょうか。
よろしくお願いします。

Answer 1

恐らく、With ActiveSheet.ChartObjectsとなっているので、forループの度に「グラフのオブジェクト全てを毎度一括で位置合わせ」をしています。つまるところ、forループの最後のグラフの位置に、すべてのグラフが重なっているようです。

なので、やることは、グラフを作り終った後に、作ったグラフに対してforループの中でも外でも良いので、１つ１つ位置を合わせて行くことです。

下の例はグラフを作り終わった後に、最後にすべてのグラフを位置合わせしています。

Sub Macro1()
    '
    ' Macro1 Macro
    '
    '
    maxRow = Range("A1").End(xlDown).Row
    
    For i = 1 To maxRow Step 17
    
    
        With ActiveSheet.Shapes.AddChart.Chart
            .ChartType = xlLine
            .SetSourceData Source:=Sheets("Sheet1").Range(Cells(i, 2), Cells(i + 16, 2))
            .Axes(xlValue).MaximumScale = 3 '数値軸の変更
    
        End With

        
    Next i
    
    With ActiveSheet.ChartObjects
        .Height = 200
        .Width = 400 '大きさを設定
    End With

    For i = 1 To ActiveSheet.ChartObjects.Count
        ActiveSheet.ChartObjects(i).Left = ActiveSheet.ChartObjects(1).Left
        ActiveSheet.ChartObjects(i).Top = ActiveSheet.Range("B" & i).Top

    Next
        
End Sub

困ったらVBAでのグラフ作成を参照ください。

///このようにやらなくても、グラフを作るたびにグラフの名前を拾って位置を合わせる、もできそうですね。