Arquivo do Excel com tamanho de 1 GB

Question

Eu tenho um arquivo do Excel que contém 600 imagens pequenas, tentei usar a compactação de imagens do Excel, mas ele não fez nada. Existe outra maneira fácil de realmente compactar essas imagens?

    

Answer 1

Uma pergunta semelhante surgiu para as imagens do Word e o uso de copiar e colar especial como jpeg parece reduzir consideravelmente o tamanho do arquivo (consulte Como automatizar 'cole como JPEG' colando pics em Word para reduzir o tamanho de documento inteiro ? )

Tente uma macro para percorrer fotos e copiar e colar especiais como 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