Удаление всех картинок с листа Excel

Дано: В 1С создан многостраничный документ Excel, размер файла за 100 мегабайт, т.к. на каждой странице повторяется логотип компании.
Решение: Создать и запустить в редакторе VB следующую процедуру для активного листа:

Sub УдалениеКартинок()
    For Each pic In ActiveSheet.Shapes
        pic.Delete
    Next pic
End Sub

P.S. Проверено на 2003 Excel.