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

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

vertical-alignment screenshot excel

Ned · 技术社区 · 8 年前

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

它将是这样的:

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

Excel文件中的屏幕截图:

2 回复 | 直到 8 年前

ELW 8 年前

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

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

Ned 8 年前

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

lastTop = 0

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

推荐文章

DieudonnÃ© Miyalu · 安卓神锁

2 年前

Zack · 未使用Ruby Rspec自动生成屏幕截图

6 年前

ssp singh · 使用Puppeter为URL列表截图。js公司

6 年前

Kaj · Android Xamarin上的屏幕截图,宽系统屏幕截图

6 年前

krishank Tripathi · 在为整个布局截图时,只有屏幕上可见的列表项以位图的形式出现

6 年前

mustafa-naeem · 矩形表示特定的媒体播放器javafx

6 年前

JohnSaps · 类型隐藏不阻止窗体包含在屏幕转储中

6 年前

Vlastimil Burián · 在Linux上,如何使用POSIX shell禁用鼠标一秒钟,而不必等待第二秒钟,并立即执行一些工作?

6 年前

Amarjit · 当用户尝试截图时,更改截图块文本并点击web api

6 年前

Sindri Ingolfsson · 使用region加速pyautogui屏幕截图()

6 年前