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

网友投稿 152 2024-01-14

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

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

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

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

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

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

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

当然，您可以自动调整每个单元的大小以适合其上方的图片。然而，对于许多图片而言，这可能是乏味且耗时的。实际上，我们可以应用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

Copy

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

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

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

如果您按照下面的屏幕截图所示调整了单元格的大小，然后想要导入图片并调整其大小以适合单元格的大小，那么如何快速完成呢？在这种情况下， Kutools for Excels 导入Pictrue

实用程序可以帮助您轻松地完成这项工作。

Kutools for Excel, 与超过 120 方便的功能，使您的工作更加轻松。

前往下载60天免费试用

安装后 Kutools for Excel, 请按以下步骤:(免费下载 Kutools for Excel 现在！）

1。点击企业 > 进出口 > 导入图片

。看截图：

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

部分。看截图：

3。然后点击进口显示按钮 导入图片尺寸 对话框，然后检查 匹配的细胞大小

选项。看截图：

4。点击 OK > 进口

显示对话框以选择要导入图片的单元格。看截图：