如何调整图片大小以适合Excel中的单元格？

通常，插入的图片会漂浮在单元格上，大多数情况下，一张图片会覆盖很多单元格。 如果工作表中包含大量图片，则可能需要将每张图片放入单个单元格中。 但是如何处理呢？ 实际上，有几种技巧可以帮助我们快速调整图片大小以适合单元格的大小。

使用VB宏调整所选图片的大小以适合单个单元格

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

使用VB宏调整所选图片的大小以适合单个单元格

我们可以应用VB宏来调整所选图片的大小以适合单个单元格，但不能手动调整图片的宽度和高度。 您可以按照以下步骤进行操作：

步骤1：将图片插入到工作表中，然后选择要调整大小以适合单个单元格的图片。

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

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

VBA：调整所选图片的大小以适合单元格。

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

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

步骤5：重复上述步骤以调整其他图片的大小以适合单个单元格。

现在，所有插入的图片都将调整大小并适合单元格。 请参见以下屏幕截图：

备注：一次只能调整一张照片的尺寸。 如果一次选择多张图片，将弹出一个警告对话框。

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

如果你有 Kutools for Excel 安装后，可以应用它 导入图片 该工具可在插入图片期间调整所有图片的大小以适合单元格或固定高度。

Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用，不受限制。 立即获取.

步骤1：选择要插入图片的范围单元格，然后单击 Kutools 加 >进出口 > 导入图片。 请参见以下屏幕截图：

步骤2： 导入图片 对话框中，在下拉列表中选择插入顺序，然后单击 添加 按钮从文件或文件夹添加所需的图片，然后单击 尺寸 按钮。 看截图：

步骤3：检查 匹配的细胞大小 选项。 然后点击 Ok > 导入模板 关闭对话框。 看截图：

现在您可以看到已插入图片以适合单元格。

备注：您还可以在步骤3中指定单元格的高度和宽度，以调整图片大小。

如果您想进一步了解 导入图片 功能，请访问 了解更多.

相关文章:

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