在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