Как удалить все картинки

[bskjohn]

Подскажите пожалуйста, как в экселе найти и удалить все картинки?

[EducatedFool]

В самом Excel найти и удалить картинки не удастся.
А вот картинки, расположенные на листах рабочих книг Excel - запросто.

Эти макросы удалят все картинки с активного в данный момент листа Excel:

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


Sub УдалениеКартинок_вариант2()
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
End Sub

=============== добавлено позже ====================

У меня на сайте есть готовая программа для вставки изображений на лист Excel:
http://excelvba.ru/programmes/PastePictures
В этой же надстройке, есть опция удаления картинок с листа Excel(и из примечаний)

Надстройка позволяет искать в выбранной папке изображения, основываясь на содержимом ячеек таблицы Excel, и производить вставку найденных изображений в соседние ячейки (или в примечания к этим ячейкам).

Кроме того, надстройка умеет скачивать изображения по ссылкам, сохраняя загруженные изображения в заданной папке, и вставлять картинки в примечания к ячейкам.




Особенности надстройки вставки изображений:

• загрузка изображений по ссылкам (обычная гиперссылка, просто текст ссылки - URL, формула =ГИПЕРССЫЛКА(), и т.п.)
• поиск картинок в подпапках заданной папки (глубина поиска по подпапкам не ограничена)
• установка выбранного пользователем размера для вставляемых изображений
• отображение состояния поиска и вставки изображений (прогресс-бар)
• вывод результатов обработки таблицы (сколько изображений вставлено, сколько не найдено)
• добавление гиперссылок к вставляемым изображениям (по щелчку на картинке открывается исходный файл)
• 2 режима поиска файлов - по точному совпадению имени файла, и по началу имени файла-изображения
• 2 режима вставки картинок - подгонка размеров под ячейку, или соблюдение пропорций исходного изображения
• вывод количества файлов в выбранной папке
• возможность выбора столбца с названиями файлов, и указания номера столбца для вставляемых изображений
• возможность вставки изображений в комментарии к ячейкам

Запуск вставки изображений выполняется из меню программы (на панели инструментов)

Надстройка вставки картинок в Excel теперь поддерживает обновления - поэтому отныне надстройка будет регулярно получать новые полезные функции.

Новый функционал будет добавляться в надстройку по мере поступления ваших пожеланий.

[SAS888]

Если же требуется удалить только картинки, оставив при этом на листе другие объекты, то в код от EducatedFool можно добавить соответствующую проверку:

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

[bskjohn]

EducatedFool
SAS888
Спасибо БОЛЬШОЕ за оперативный ответ!!!!!!!!!!!!!!!