如何在Excel中快速调整多个单元格的大小以适合图片？

众所周知，Microsoft Excel支持自动调整单元格的行高和列宽的大小以适合填充的内容，例如长文本字符串。 但是，“自动调整行高”命令和“自动调整列宽”命令对图片无效，因为插入的图片未驻留在特定的单元格中。

使用VBA调整单元格大小以适合图片

使用 Kutools for Excel 调整图片大小以适合单元格

使用VBA调整单元格大小以适合图片

假设工作表中有两张大图片，请参见下面的屏幕截图。 有人可能想要调整单元格的大小以适合单元格上方的图片。 但是如何实现呢？

当然，您可以自动调整每个单元的大小以适合其上方的图片。 然而，对于许多图片而言，这可能是乏味且耗时的。 实际上，我们可以应用VB宏来调整所有单元格的大小以适合其上方的图片。 您可以按照以下步骤进行操作：

步骤1：按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。

步骤2：点击 插页 > 模块，然后将以下宏粘贴到“模块窗口”中。

VBA：调整多个单元格的大小以适合其图片。

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

步骤3：按下 F5 运行此宏的键。

现在在当前工作表中，如果有图片，则在下面的单元格中将调整图片大小以适合其上方的图片。 请参见以下屏幕截图：

使用 Kutools for Excel 调整图片大小以适合单元格

如果您按照下面的屏幕截图所示调整了单元格的大小，然后想要导入图片并调整其大小以适合单元格的大小，那么如何快速完成呢？ 在这种情况下， Kutools for Excel's 导入Pictrue 实用程序可以帮助您轻松地完成这项工作。

安装后 Kutools for Excel，请执行以下操作：

1。 点击 Kutools 加 > 进出口 > 导入图片。 看截图：

2.在弹出 导入图片 对话框中，您可以先指定导入顺序 进口订单 部分，然后单击 添加 按钮从文件夹或文件中逐张添加图片，然后您可以在 图片 部分。 看截图：

3。 然后点击 导入模板 显示按钮 导入图片尺寸 对话框，然后检查 匹配的细胞大小 选项。 看截图：

4。 点击 OK > 导入模板 显示对话框以选择要导入图片的单元格。 看截图：

5。 点击 OK，现在所有图像都已导入到单元格中，并且调整其大小以适合单元格。

相关文章:
如何在Excel中的单元格中插入多张图片？