☰

大小为 1GB 的 Excel 文件

tag-icon • tag-icon microsoft-excel
大小为 1GB 的 Excel 文件

我有一个包含 600 张小图像的 Excel 文件，我尝试使用 Excel 图像压缩但没有任何效果，还有其他简单的方法可以真正压缩这些图像吗？

答案1

对于 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

相关内容