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

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

vertical-alignment screenshot excel

Ned · 技术社区 · 9 年前

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

它将是这样的:

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

Excel文件中的屏幕截图:

2 回复 | 直到 9 年前

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

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

推荐文章

William Entriken · 排列不同尺寸的徽章

7 年前

user438461 · 在我的WPF选项卡项中设置VerticalContentAlignment会更改选项卡中的文本和选项卡中包含的控件

7 年前

SmallSani · 当更改内容时,如何在页面上垂直居中放置div?

7 年前

Benji · -webkit背景剪辑:文本和垂直居中文本

7 年前

Travis Martin · flexbox布局中的垂直文本

7 年前

Mike Waldrup · 弹性物品被撞倒,正好是前一件物品的一半高度

7 年前

karlo1zg · 垂直对齐输入元素中间的浮动标签

7 年前

Ahmed Elashker · Xamarin在平台垂直选项上形成XAML

7 年前

coreysimons · 动态布局中的图像对齐

7 年前

Théo Clayette · 设置垂直Android工具栏

7 年前