Как удалить все картинки в 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 содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.
Как удалить все изображения из excel
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 | ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Замена или удаление рисунка
Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).
Вы можете заменить рисунок в документ с другой рисунок или вы можете удалить изображение.
При удалении рисунок PowerPoint увидеть Удаление изображения.
Замена рисунка
- Щелкните рисунок, который вы хотите заменить.
- Откройте вкладку Формат и выберите команду Изменить рисунок.
- Найдите новый рисунок и дважды щелкните его.
Удалить картинку
Щелкните рисунок, который нужно удалить и нажмите клавишу DELETE.
Чтобы удалить несколько рисунков, удерживая клавишу CTRL щелкните рисунки, которые нужно удалить и нажмите клавишу DELETE.
Не удается выделить рисунок?
Если не удается выделить рисунок, вероятно, это фонового рисунка.
Чтобы выбрать фонового рисунка в Word: перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)
Чтобы выбрать фонового рисунка в PowerPoint: перейдите на вкладку Конструктор и выберите Формат фона. Нажмите измените рисунок заливки в области Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».
Замена рисунка
- Щелкните рисунок, который вы хотите заменить.
- В разделе Работа с рисунками на вкладке Формат в группе Коррекция выберите команду Изменить рисунок.
- Найдите новый рисунок и дважды щелкните его.
Удалить картинку
Щелкните рисунок, который нужно удалить и нажмите клавишу DELETE.
Чтобы удалить несколько рисунков, удерживая клавишу CTRL щелкните рисунки, которые нужно удалить и нажмите клавишу DELETE.
Совет: Можно также использовать эту процедуру для удаления коллекция картинок в документе Office 2007.
Не удается выделить рисунок?
Если не удается выделить рисунок, вероятно, это фонового рисунка.
Чтобы выбрать фонового рисунка в Word: перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)
Чтобы выбрать фонового рисунка в PowerPoint: перейдите на вкладку Конструктор и выберите Стили фона > Формат фона. Нажмите измените рисунок заливки в диалоговом окне Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».
Замена рисунка
- Щелкните рисунок, который вы хотите заменить.
- Перейдите на вкладку Формат рисунка и нажмите кнопку Изменить рисунок.
- Найдите новый рисунок и дважды щелкните его.
Удалить картинку
Щелкните рисунок, который нужно удалить и нажмите клавишу Backspace.
Не удается выделить рисунок?
Если не удается выделить рисунок, вероятно, это фонового рисунка.
Чтобы выбрать фонового рисунка в Word: перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)
Чтобы выбрать фонового рисунка в PowerPoint: перейдите на вкладку Конструктор и выберите Формат фона. Нажмите измените рисунок заливки в диалоговом окне Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».
Быстрое удаление картинок в 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? Выборочное удаление листов