4种快速方法：自动调整图片大小以适应Excel单元格

通过VBA代码调整图片大小以适应单元格（批量调整，不可撤销）对于需要处理大量图片的Excel高手来说，VBA是您的得力工具。深入宏代码，调整所选图片或工作表中的每一张图片的大小。与Alt快捷键类似，这种方法会完全覆盖单元格，但可能会影响原始比例。

步骤1：按住Ctrl键选择要调整大小以适应单元格的图片注意：如果您想调整当前工作表中的所有图片，请跳过此步骤并继续执行步骤2。步骤2：按Alt + F11键打开Microsoft Visual Basic for Applications窗口步骤3：点击插入 > 模块，并将以下代码之一粘贴到空白脚本中代码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

步骤4：按 F5 键或点击运行按钮 运行代码结果：代码1：调整所选图片以适应单元格

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