Как удалить все картинки в Excel с выбранных листов
Если в файле Excel много картинок и их все необходимо удалить, то удобнее пользоваться надстройкой VBA-Excel. В этом случае не потребуется удалять картинки по 1 штуке.
Описание работы
Если файл Excel начал много весить и медленно работать, то одной из причин может быть наличие в нем картинок. При чем картинки могут быть скрыты и не отображаться на листе. Если на листе большое количество фотографий, то удалять их по одной придется долго. Удобнее воспользоваться нашей надстройкой и удалить их в несколько кликов.
Чтобы удалить все картинки с листа необходимо выполнить следующие действия:
- Перейти на вкладку VBA-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 содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.
Как удалить все рисунки в эксель
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Быстрое удаление картинок в Excel
Наверняка все знают как удалить картинку с рабочего листа Excel. Подвести курсор мыши к картинке, кликнуть по ней левой кнопкой мыши и нажать клавишу Delete на клавиатуре, но как быть если картинок много?
Необходимость в быстром удалении большого количества картинок появилась после вставки на лист рабочей книги Excel информации, скопированной на одной из интернет-страниц. Вместе с нужной информацией на лист были вставлены различные элементы управления, кнопки, баннеры и изображения товаров, что потребовало чистки.
Ниже приведены несколько процедур, позволяющие решить задачу удаления картинок, а также копирования или перемещения картинок на другой лист.
Удаление картинок с активного рабочего листа Excel циклом
Sub ImgDeleteSht() Dim Img As Shape For Each Img In ActiveSheet.Shapes Img.Delete Next Img End Sub
Удаление картинок с активного рабочего листа Excel без цикла
Sub ImgDeleteSht2() ActiveSheet.Shapes.SelectAll Selection.Delete End Sub
Удаление всех картинок на всех листах активной рабочей книги
Sub ImgDeleteWbk() Dim Sht As Worksheet Dim Img As Shape For Each Sht In ActiveWorkbook.Sheets For Each Img In Sht.Shapes Img.Delete Next Img Next Sht End Sub
Копирование картинок с активного листа на другой лист
Sub ImgCopy() ActiveSheet.Shapes.SelectAll Selection.Copy Sheets("Лист2").Select ActiveSheet.Paste End Sub
*Вместо «Лист2» может быть подставлено любое другое имя листа рабочей книги.
Перемещение картинок с активного листа на другой лист
Sub ImgMove() ActiveSheet.Shapes.SelectAll Selection.Cut Sheets("Лист2").Select ActiveSheet.Paste End Sub
*Вместо «Лист2» может быть подставлено любое другое имя листа рабочей книги.
Другие материалы по теме:
- Создание и написание макросов. Как установить макрос на свой компьютер?
- Как импортировать модуль с макросом на свой компьютер?
- Как удалить/скрыть столбцы в Excel по условию? Работа со столбцами
- Как удалить строки в Excel по условию? Удаление и скрытие пустых строк и строк, содержащих заданное значение
- Как удалить все листы в Excel кроме активного? Как удалить каждый второй лист в Excel? Выборочное удаление листов
Как удалить все рисунки в эксель
На страницы файла excel после вставки из буфера обмена попали рисунки, которые совершенно не нужны для дальнейшей обработки. Получилось это в результате работы с интернет-банкингом – в некоторые ячейки перенеслись картинки с гиперссылками на подробную информацию.
Ячеек таких было штук 100. Руками удалять картинки – не вариант. К тому же, скоро их количество должно вырасти. Задача – как удалить автоматически картинки в Excel.
Решение оказывается довольно простым с помощью пяти строк макроса на Visual Basic. В 2010 Excel кнопка запуска макросов находится в меню «Разработчик», которое по умолчанию скрыто. Чтобы его включить, нужно зайти в «Файл -> Параметры», выбрать пункт «Настройка ленты» и в окне справа отметить галочку около пункта «Разработчик».
Включение панели Разработчик в Excel 2010
После включения опции «Разработчик» в риббоне появится кнопка «Visual Basic».
Риббон с кнопкой Visual Basic
Для ввода запуска кода нужно нажать на кнопку «Visual Basic», после чего откроется редактор кода.
Редактор кода Visual Basic
В редакторе нужно выбрать, для какого объекта нужен код – для какого-то листа или для всей книги. Двойным кликом на объект (лист или книгу) откроется окно для ввода кода, куда нужно ввести код ниже и нажать на кнопку Run (F5)
For Each pic In ActiveSheet.Shapes
If pic.Type = msoPicture Then pic.Delete
Код процедуры удаления картинок на листе