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

Question

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

它将像：

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 行 space。

lastTop = 0

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

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

Put vertical space between pictures in Excel

excel

screenshot

vertical-alignment