在Excel中的图片之间放置垂直空格

我有几个Excel屏幕截图。我从一个文件夹中一次导入了所有这些文件。我需要将它们垂直对齐，每一个之间有一行空间。有什么简单的方法吗

它将像：

• 1截图
• 一排
• 1截图
• 一排
• 等等

我的Excel文件中的屏幕截图：

---

这将使它们沿对角线对齐，每一行上下各有一列

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

---

这将使它们沿对角线对齐，每一行上下各有一列

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

---

我对@ELW的答案做了一些调整。这会将所有图片向左对齐，使它们彼此相邻，中间有1行空间

lastTop = 0

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

---

我对@ELW的答案做了一些调整。这会将所有图片向左对齐，使它们彼此相邻，中间有1行空间

lastTop = 0

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