Тема немного старая, но нашел немного другой макрос, расстановки меток вместо картинок.
Этот скрипт удаляет еще и диаграммы, и смарт-объекты, которые он тоже считает картинками.
А вот этот скрипт работает только с внедренными картинками:
Sub del_pick()
Dim ii, rng, nn
nn = 0 'число...