Excel如何快速压缩所有图片大小

在处理包含大量图片的Excel工作簿时，文件体积可能迅速膨胀，导致打开缓慢、占用存储空间且不便共享。幸运的是，Excel提供了多种方式来压缩图片，包括手动操作和自动化脚本。本文将分步介绍如何批量压缩所有图片大小，让您的工作簿更加轻便高效。

方法一：使用Excel内置“压缩图片”功能

Excel的“图片格式”选项卡中内置了压缩工具，适用于一次性处理工作表中的所有图片。步骤如下：

1. 选中任意一张图片，点击顶部菜单栏的图片格式选项卡（双击图片也可快速进入）。
2. 在调整组中，点击压缩图片按钮。
3. 在弹出的对话框中，勾选应用于此工作簿中的所有图片。
4. 选择合适的分辨率：默认推荐“电子邮件(96 ppi)”，可大幅减小文件大小；若需要更好质量，可选“打印(200 ppi)”。
5. 取消勾选“仅应用于此图片”，并确认“删除图片的已裁剪区域”以进一步减小体积。
6. 点击确定，Excel将压缩当前工作簿中的所有图片。

注意：此方法适用于当前活动工作表的所有图片。如果需要压缩所有工作表的图片，建议切换到每个工作表后重复操作（或使用VBA自动化）。

方法二：使用VBA宏批量压缩所有图片

若要一次性压缩整个工作簿（包括所有工作表）中的图片，可以编写一段简单的VBA宏。步骤如下：

1. 按 Alt + F11 打开VBA编辑器。
2. 在菜单栏点击插入 → 模块，新建一个模块。
3. 将以下代码复制粘贴到模块中：

   Sub CompressAllPictures()
       Dim ws As Worksheet
       Dim pic As Shape
       For Each ws In ActiveWorkbook.Worksheets
           For Each pic In ws.Shapes
               If pic.Type = msoPicture Then
                   pic.PictureFormat.CompressPicture PicResolution:=ppResLow, DeleteCroppedAreas:=msoTrue
               End If
           Next pic
       Next ws
       MsgBox "所有图片已压缩完成！"
   End Sub

4. 关闭VBA编辑器，按 Alt + F8 打开宏对话框，选择CompressAllPictures并点击运行。

注意：压缩分辨率（ppResLow）可根据需要替换为 ppResScreen（屏幕，96 ppi）、ppResPrint（打印，200 ppi）等。此方法会修改原始图片，建议先备份文件。

方法三：另存为PDF时优化

如果不需保留Excel格式，可以另存为PDF并通过PDF压缩工具减小体积，但无法直接更改Excel内的图片大小。

注意事项

• 备份文件：压缩操作不可逆，请保留原始副本。
• 图片质量：压缩后会损失一定清晰度，根据使用场景选择合适分辨率。
• 链接的图片：若图片为链接形式，需先转换为常规图片再压缩。

通过以上方法，您可以有效控制Excel文件大小，提升工作效率。选择适合您工作流程的技巧，让大文件不再是负担。