1GB大小的Excel文件

我有一个包含600个小图像的Excel文件，我试图使用Excel图像压缩，但它没有做任何事情，还有另一种简单的方法来真正压缩这些图像吗？

microsoft-excel

— user532948
source

你究竟尝试了什么？你有没有将分辨率设置为最小的分辨率？适用于所有图片？

— MátéJuhász

我选择了所有图像，在“格式”选项卡中单击“压缩图像”，压缩全部，完全没有变化。我将最小分辨率设置为96dpi，图像很小，如200px宽度80高度。我想excel调整图像大小保持原始大小的图像，所以它的大小继续大。

— user532948 2015年

我的问题是你为什么要在excel中使用600多张图片？

— 米勒86年

一个类似的问题出现在Word图片上，并使用特殊的复制和粘贴作为jpeg似乎大大减少了文件大小（请参阅如何自动“粘贴为JPEG”以粘贴Word中的图片以减少整个文档大小？）

尝试使用宏来循环浏览图片并将其复制并粘贴为jpeg：

Sub test()

Dim shp As Object
If ActiveSheet.Pictures.Count = 0 Then Exit Sub

For i = ActiveSheet.Pictures.Count To 1 Step -1

   Set shp = ActiveSheet.Pictures(i)

        shp.Select

        Dim iTop As Integer
        Dim iLeft As Integer
        iTop = Selection.Top
        iLeft = Selection.Left


        Selection.Cut

        ActiveSheet.PasteSpecial Format:="Picture (JPEG)", Link:=False, _
        DisplayAsIcon:=False

        Selection.Left = iLeft
        Selection.Top = iTop

Next

End Sub

— 蔡健雅
source