Файл Excel размером 1 ГБ

Question

У меня есть файл Excel, который содержит 600 небольших изображений, я пытался использовать сжатие изображений Excel, но ничего не сделал, есть ли еще один простой способ действительно сжать эти изображения?

Answer 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