Поместите вертикальное пространство между изображениями в Excel

Question

У меня есть несколько скриншотов в Excel. Я импортировал их сразу из папки. Мне нужно выровнять их по вертикали с 1 рядом строк между ними. Есть ли простой способ сделать это?

Это будет как:

• 1 скриншот
• 1 строки
• 1 скриншот
• 1 строки
• т.д.

Скриншоты в моем файле Excel:

Answer 1

Это приведет к тому, что они выровнят их по диагонали, дополнительный столбец и ряд вниз для каждого.

Row = 1 
col = 1 

For Each pic In Worksheets("Sheet1").Pictures 
    pic.Top = Worksheets("Sheet1").Rows(Row).Top 
    pic.Left = Worksheets("Sheet1").Columns(col).Left 
    Row = Row + 1 
    col = col + 1 
Next pic 

Answer 2

Я внесла небольшие изменения в ответ @ELW. Это выравнивает все снимки влево, помещает их рядом друг с другом с 1 рядом строк.

lastTop = 0 

For Each pic In Worksheets("Sheet1").Pictures 
    pic.Top = lastTop 
    lastTop = lastTop + pic.Height + 15 
    pic.Left = 0 
Next pic