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

Question

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

它会像：

• 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