在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