我在Excel中有几个截图。我从文件夹中一次导入了所有这些内容。我需要将它们垂直对齐,每个之间有1行空格。有没有简单的方法呢?
就像:
答案 0 :(得分:2)
这会使它们对角线对齐,每个对齐一列,然后向下行。
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
答案 1 :(得分:0)
我对@ELW的回答做了一些调整。这会将所有图片对齐到左边,将它们放在一起,每行间隔1行。
lastTop = 0
For Each pic In Worksheets("Sheet1").Pictures
pic.Top = lastTop
lastTop = lastTop + pic.Height + 15
pic.Left = 0
Next pic