VBA 複数のグラフを改行しながら並べる

Question

いろんなサイトを参考にさせてもらいながらレーダーチャートを複数作成するコードを作ってみました。
コードは下のようなリストを横一列にチャートを並べるものです。
しかしデータが多いとたとえば紙に印刷するなどした際にさすがに見た目が悪いため、チャート数に仕切りを設けて改行し、またチャートを並べるようにしたいのですがまったく想像がつきません。
※画像で言うところの『え』から先のデータを『あ』の下から再度並べるようにしたいと考えています。
どなたかご教示いただけますと幸いです。

Sub TEST()
i = 2
s = 10
Do Until Cells(i, 1) = ""

Set headerRange = Worksheets("TEST").Range("A1:H1")

Set DataRange = Worksheets("TEST").Range(Cells(i, 1), Cells(i, 8))
Set gRange = Union(headerRange, DataRange)

With ActiveSheet.ChartObjects.Add( _
 Left:=Cells(2, s).Left, _
 Top:=Cells(2, s).Top, _
 Width:=100, _
 Height:=200)
 .Chart.ChartType = xlRadar
 .Chart.SetSourceData Source:=gRange
 .Chart.HasLegend = False
 End With
s = s + 2
i = i + 1
Loop
End Sub

Answer 1

チャート並び替えのサンプルです。
フラグがあるシートに張り付けて動かして見て下さい。
イメージが掴めると思います。
ChartObj()でオブジェクトを取得すれば、後は適当な場所へ配置できます。

Option Explicit
Sub Test_Sample_Miniature()
    
    Dim ChartObj() As ChartObject
    Dim MyChart As ChartObject
    Dim iX As Integer
    Dim lngTop As Long
    Dim lngLeft As Long
    Dim lngNowTop As Long
    Dim lngNowLeft As Long
    
    iX = 0: lngTop = 0: lngLeft = 0
    For Each MyChart In ActiveSheet.ChartObjects
        '
        'オブジェクトの取得
        ReDim Preserve ChartObj(iX)
        Set ChartObj(iX) = MyChart
        '
        '共通
        MyChart.Height = 100
        MyChart.Width = 200
        '
        Select Case iX
            Case 0
                MyChart.Top = 100
                MyChart.Left = 50
                lngNowTop = lngTop
                lngNowLeft = lngLeft
            Case 1
                lngNowTop = lngTop
                lngNowLeft = lngLeft
            Case 2
                lngNowTop = lngTop
                lngNowLeft = lngLeft
        End Select
        '
        '位置移動･大きさ変更
        If iX <> 0 Then
            ChartObj(iX).Top = lngNowTop + 100
            ChartObj(iX).Left = lngNowLeft + 200
        End If
        lngTop = ChartObj(iX).Top
        lngLeft = ChartObj(iX).Left
        iX = iX + 1
        '
    Next
    
End Sub

Comments

[hajihaji]

ご回答いただきありがとうございます。
わたしではまったく理解が及ばないところです。
動かしてみようと思います。