Как удалить все картинки в Excel с выбранных листов

Если в файле Excel много картинок и их все необходимо удалить, то удобнее пользоваться надстройкой VBA-Excel. В этом случае не потребуется удалять картинки по 1 штуке.

Описание работы

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

Чтобы удалить все картинки с листа необходимо выполнить следующие действия:

  1. Перейти на вкладку VBA-Excel, которая будет доступна после установки.
  2. В меню Диспетчеры найти пункт Диспетчер листов.
    Вызов диспетчер листов
  3. Выбрать листы, на которых необходимо удалить все рисунки.
  4. Нажать команду Удалить картинки.
    Удаление картинок из листа Excel

Код макроса на VBA

Ниже представлен код макроса, который удаляет картинки и прочие объекты на активном листе

Sub УдалитьКартинки()
    Dim sh As Worksheet
    Dim shp As Shape
    
    For Each shp In ActiveSheet.Shapes
        shp.Delete
    Next
End Sub
Надстройка
VBA-Excel
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.

Рекомендуем к прочтению