代码之家 › 专栏 › 技术社区 › Ned

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

vertical-alignment screenshot excel

0

Ned · 技术社区 · 9 年前

我有几个Excel截图。我一次从一个文件夹中导入了所有这些文件。我需要将它们垂直对齐,每一行之间有一行空间。有什么简单的方法吗?

它将是这样的:

1个屏幕截图
1行
1个屏幕截图
1行
等

Excel文件中的屏幕截图:

2 回复 | 直到 9 年前

1

2

ELW 9 年前

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

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

2

0

Ned 9 年前

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

lastTop = 0

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