エクセルにて画像の間隔を指定枚数ごとにずらしたい。

Question

前提・実現したいこと

画像３枚ごとに（3枚目～4枚目）・(6枚目～7枚目）の間隔を１枚目～３枚目と変更したいと考えておりますが、うまくできません。
御教授頂けると幸いです。

発生調べたコード

Sub 画像を挿入()
Dim myDataCnt As Long
Dim myNo As Long
Dim i As Long
Dim myRow As Long
Dim myName As String

  myDataCnt = Worksheets("picture").Range("A1").End(xlDown).Row
  myNo = 1
  myRow = 3



  Worksheets("写真報告書").Select
  Do Until myNo > myDataCnt
        myName = Worksheets("picture").Cells(myNo, 1).Value
  
        Cells(myRow, 6).Select
        ActiveSheet.Pictures.Insert(myName).Select
        Selection.ShapeRange.LockAspectRatio = msoTrue
        Selection.ShapeRange.Height = 323.3
        Selection.ShapeRange.Width = 362.8
        ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
              Address:=myName
  
        myRow = myRow + 12.3
        myNo = myNo + 1
  Loop

End Sub

補足情報（FW/ツールのバージョンなど）

Excel 2016/2013

Answer 1

変数myRowは画像を貼り付けるセルの行番号だと思います。

当然、普通なら正数値で設定するところなのですが、この変数のインクリメント処理でmyRow = myRow + 12.3としているのは「３回おきに+1行」したいという試行錯誤の結果なのかな？と受け取りました。

MOD関数

今回、困っているのは「3回おきに」という判断の部分かと思います。

これは以下のようにMOD関数を使うと簡単に判断できます。

    '１画像ごとに12行ずらす
    myRow = myRow + 12
    
    '３で割リ切れる場合はさらに１行ずらす
    If (myNo Mod 3) = 0 Then
        myRow = myRow + 1
    End If
    
    'myNoをインクリメント
    myNo = myNo + 1

MOD関数は余剰を求める関数です。
上記コードではmyNo変数が3で割り切れる（余りが０）場合は、追加で１行分ずらしています。

やりたいことはこんな感じでしょうか？
参考になれば幸いです。

Answer 2

Sub 画像を挿入2()
    Dim c As Range      'ファイルのパスがある各セル
    Dim r As Range      '写真を出力する左上のセル
    Dim p As Shape      '挿入した画像
    Dim a As String     'ファイルのフルパス？（各セルの内容）
    Dim ixRow As Long   '写真を出力する行番号

    ixRow = 3
    For Each c In Worksheets("picture").Range("A1").CurrentRegion.Columns(1).Cells
        With Worksheets("写真報告書")
            r = .Cells(ixRow, 6).Top
            Set p = .Pictures.Insert(a)
        End With
        Let a = c.Value
        With p
            .Height = 323.3
            .Width = 362.8
            .Top = r.Top
            .Left = r.Left
        End With
        Worksheets("写真報告書").Hyperlinks.Add Anchor:=p, Address:=a
        ixRow = ixRow + 10
    Next
End Sub

セルの位置を基準にして出力するなら、
難しく考えずに、セルの行間隔を変えてはいかが？

挿入した枚数で条件を変えたいなら、当然
If文で条件分岐します。

        If Worksheets("写真報告書").Shapes.Count Mod 3 = 0 Then
            ixRow = ixRow + 30
        Else
            ixRow = ixRow + 10
        End If

Answer 3

使う命令のヒントとして、以下のコードを試しました。
自動取得で１枚目から3枚目ごとに縦に50px下げるコードです。

Public Sub getShape()
Dim TheShape As Shape
 Dim i As Integer
 i = 0
 For Each TheShape In ActiveSheet.Shapes
    Debug.Print TheShape.Name, TheShape.Left, TheShape.Top
    i = i + 1
    If i Mod 3 = 1 Then
      TheShape.Top = TheShape.Top + 50
    End If
 Next TheShape
End Sub

　単純に作った順番の画像移動でいいのか、画像名に規則があるのか分かりませんので、
独自の画像名のルールがあるのなら、画像名の配列を作って、その配列をソートして
画像名を指定しつつ移動させることになるでしょう。
また、思惑の移動のためには移動する大きさを累積していかなければなりませんから、
その調整は、このサンプルに出てきたプロパティと変数を参考に、操作しつつ試していきましょう。