Вставьте 3 изображения для листа с помощью VBA

Question

Мне нужно создать макрос Excel, который позволяет пользователям выбирать неограниченное количество фотографий с ПК и автоматически устанавливает их три для страниц;например, если пользователь выберет 9 изображений, я получу 3 листа по 3 изображения в каждом.

Я знаю, как позволить пользователю выбирать изображения, но я не знаю, как установить их 3 для страницы

Вот мой код:

Private Sub Images()
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .ButtonName = "Invia"
    .Title = "Seleziona una foto"
    .Filters.Clear
    .Filters.Add "JPG", "*.JPG"
    .Filters.Add "JPEG File Interchange Format", "*.JPEG"
    .Filters.Add "Graphics Interchange Format", "*.GIF"
    .Filters.Add "Portable Network Graphics", "*.PNG"
    .Filters.Add "Tag Image File Format", "*.TIFF"
    .Filters.Add "All Pictures", "*.*"

    If .Show = -1 Then

        For i = 1 To .SelectedItems.count
        Dim img As Object
        Set img = ActiveSheet.Pictures.Insert(.SelectedItems(i))

        'Scale image size
        'img.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft
        'img.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft

        'Position Image
         // I think here is the problem

        'Set image sizes in points (72 point per inch)
        img.Width = 150
        img.Height = 150
        Next i

    Else
        MsgBox ("Cancelled.")
    End If
End With
End Sub