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

这将使它们对角线对齐,在每一列上增加一列并向下排。

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

我对@ELW的回答做了一些调整。这会将所有图片向左对齐,并将它们放在一起,中间有一行空间。

lastTop = 0

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