Вставка фотографий в столбцы.

[dron214]

Добрый день. Помогите написать макрос. В кратце. Открываю файл Эксель, навожу курсор на нужную ячейку и нажимаю вставить изображение. Выбираю нужную папку, выделяю все фотки ( их может быть от 2 до 10). Нажимаю вставить.
Нужно что бы все эти фотки приняли один размер и после этого выстроились по горизонтали друг за другом.
Обычно после вставки фотографий нажимаю изменить размер и ввожу размер. Все фотки становятся нужного размера. А вот дальше приходится по одной фотке двигать их выставляя друг за другом.
Заранее спасибо за помощь.

Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+я
'
    Selection.ShapeRange.Height = 85.0393700787
    Selection.ShapeRange.Align msoAlignTops, msoFalse
End Sub

[Aleksandr H.]

https://stackoverflow.com/questions/...der-into-cells

[dron214]

Не силен я в макросах (((. Вставил код и получается что фотографии вставляются по одной в каждую ячейку по вертикали. Мне же надо что бы выбранные фотографии выстраивались в ряд по горизонтали. Пример файла прилагаю. Спасибо.
тест.xlsx

[Aleksandr H.]

Set rngCell = rngCell.Offset(0,1)

[dron214]

Как я далек от всего этого. А можно сделать так :
1. Делается в ручном режиме без макроса . Я выбираю ячейку, нажимаю вставить изображение, выбираю нужную мне папке из этой папки выбираю нужные мне фото. После этого нажимаю вставить. После этого выбранные фотографии появляются в ячейке в оригинальном размере в виде каскада и все они выделены.

Нужно дальше при помощи макроса сделать:
1. Уменьшить фотографии, например по высоте значение 3
2. Выстроить их друг за другом по горизонтали в одной ячейке.

Set rngCell = rngCell.Offset(0,1)

данный код вставляет фотографии по алгоритму одна фотография-одна ячейка.