再多的图片也不怕！如何自动调整图片大小以适应Excel中的单元格

在Excel中插入无缝融入单元格的图像可以提升数据可视化，但手动调整每个图像？繁琐且耗时。深入本指南，我们将揭示两种强大的方法，巧妙地自动调整图片大小，改变您的电子表格体验。

按“设置图片格式”窗格调整图片大小以适应单元格

要保持一致性，尤其是在多个图像的情况下，请使用“设置图片格式”窗格。在这里，你可以批量设置多个图像高度或宽度，以与单元格高度或宽度对齐，从而确保一致性。

一、选择图像

1、选择“开始”>“查找和选择”>“选择窗格…”…。

2、在“选择”窗格中，按住Ctrl键选择要一起调整大小的图片，或按Ctrl+A选择要调整大小的所有对象。

二、打开“设置图片格式”窗格，设置所有选定图片的高度或宽度

1、右键单击工作表中任何选定的图片，从上下文菜单中选择“设置对象格式”。

2、单击窗格中的“大小和属性”选项卡，在“大小”部分下的“高度”或“宽度”文本框中输入高度数字或宽度数字。

3、按Enter键完成调整大小。

4、结果：在保持纵横比的同时，根据固定高度调整图片大小。

通过VBA代码调整图片大小以适应单元格（批量调整大小，无法撤消）

对于我们处理批量图像的Excel专业人员来说，VBA是你的工具。深入宏，调整所选图像或工作表中每一个图像的大小。与Alt快捷键非常相似，它完全覆盖了单元格，但可能会影响原始比例。

一、按住Ctrl键选择要调整大小以适应单元格的图像

注意：如果要调整当前工作表中所有图像的大小，请跳过此步骤并跳到步骤二。

二、按Alt+F11键打开Microsoft Visual Basic for Applications窗口

三、单击“插入”>“模块”，然后将以下代码之一粘贴到空白脚本中

代码1：调整所选图像的大小以适应单元格

Sub ResizeSelectedPicturesToFitCells()

'UpdatebyExtendoffice

Dim shp As Shape

For Each shp In Selection.ShapeRange

With shp

.LockAspectRatio = msoFalse

.Top = .TopLeftCell.Top

.Left = .TopLeftCell.Left

.Width = .TopLeftCell.Width

.Height = .TopLeftCell.Height

End With

Next shp

End Sub

代码2：调整当前工作表中所有图像的大小以适应单元格

Sub ResizeImagesToFitCells()

'UpdatebyExtendoffice

Dim pic As Picture

For Each pic In ActiveSheet.Pictures

With pic

.ShapeRange.LockAspectRatio = msoFalse

.Top = .TopLeftCell.Top

.Left = .TopLeftCell.Left

.Width = .TopLeftCell.Width

.Height = .TopLeftCell.Height

End With

Next pic

End Sub

四、按F5键或点击运行按钮运行代码

结果：

代码1：调整所选图像的大小以适应单元格

代码2：调整当前工作表中所有图像的大小以适应单元格