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

我有几个截图在Excel中。 我一次从一个文件夹中导入它们。 我需要垂直alignment它们之间的一行空间。 有没有简单的方法来做到这一点？

这将是：

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

我的Excel文件截图：

Answer 1

这将使他们alignment他们，一个额外的列在每个和排。

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的答案做了一些调整。 这将所有图片alignment到左边，将它们相邻放置，之间有1行空格。

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