1000 Excel Rechnung mit Logo, wie entferne ich alle auf einmal?

Hallo Community,

habe folgendes Problem bei einem Kunden:

Der Kunde hat seit Jahren Rechnungen per Excel geschrieben, auf der Excel Tabelle befindet sich ein Logo das ca. 1,4 MB groß ist. Ja leider kein JPG sondern BMP. Jetzt muss man sich mal ausrechnen was der an Speicher braucht für die Rechnungen. Einfach Gigantisch. Nun meine Frage:

Kann ich irgendwie das Logo entfernen/löschen/ersetzen ohne jeweils die 1000 Rechnungen einzeln aufzumachen, das Logo zu löschen, speichern und die nächste Rechnung aufzumachen?

Gibt es dafür Programme, irgendwelche Hilfen?

Ihr merkt ich bin total verzweifelt *G Aber sowas hab ich noch nie erlebt...

Bis dann
Nudl

Sub DelPic()
Const sSourcePath As String = "D:\Rechnungen"  
Dim fso As Object, oFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")  
'Quell-Ordner durchsuchen  
For Each oFile In fso.GetFolder(sSourcePath).Files
    'nur .xls-Dateien bearbeiten  
    If LCase(Right(oFile.Name, 4)) = ".xls" Then  
        Application.Workbooks.Open (oFile.Path)
        'Erste Grafik der ersten Tabelle löschen  
        ActiveWorkbook.Worksheets(1).Shapes(1).Delete
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    End If
Next 'Datei  
MsgBox "Fertig."  
End Sub