如何将excel中插入的图片快速对齐到指定的一列中，每个单元格中一个图片。已经研究了足足一个小时。。

Question

如题所述

Answer 1

我的这段代码虽然不是你把需要的,但或许对你有用.
将A列最后数据行以上的所有B列图片大小调整为所在单元大小
Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小()
Dim Pic As Picture, i&
i = [A65536].End(xlUp).Row
For Each Pic In Sheet1.Pictures
If Not Application.Intersect(Pic.TopLeftCell, Range("B1:B" & i)) Is Nothing Then
Pic.Top = Pic.TopLeftCell.Top
Pic.Left = Pic.TopLeftCell.Left
Pic.Height = Pic.TopLeftCell.Height
Pic.Width = Pic.TopLeftCell.Width
End If
Next
End Sub

Answer 2

除了手动一个一个粘贴之外,就只能用VBA了,挺不容易的