Удаление графических объектов в excel

Если вы хотите удалить все изображения из Microsoft Excel, выбор каждого изображения и удаление их по одному может занять много времени. Следующие уловки могут облегчить вам работу по удалению всех изображений:

Удалите все изображения на активном листе с помощью команды Перейти

Удалите все изображения на активном листе с помощью VBA

Удалите все изображения или другие объекты на активном рабочем листе / всей книге с помощью Kutools for Excel

---

Удалите все изображения на активном листе с помощью команды Перейти

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

1, нажмите F5 , чтобы открыть Перейти к диалоговое окно в Excel.

2, Нажмите Особый кнопку и войдите в Перейти к специальному диалоговое окно ， затем проверьте объект вариант. Смотрите скриншот:

3, Затем нажмите OK кнопку, все изображения выбраны на активном листе, нажмите Удалить ключ, чтобы удалить их все.

Ноты:

1. Этот метод выберет все объекты на активном листе, такие как изображения, диаграммы, формы и т. Д. Если вы не хотите удалять другие объекты, вы должны отменить выбор других объектов перед нажатием клавиши Delete.

2. Этот метод удалит только изображения на активном листе.

---

Удалите все изображения на активном листе с помощью VBA

Использование макроса VBA поможет вам быстро удалить все изображения на активном листе.

1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий макрос в окно модуля.

Sub DeleteAllPics()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

3, нажмите F5 ключ для запуска этого макроса. И все изображения в активном листе удаляются сразу.

---

Удалите все изображения на активном листе или всей книге с помощью Kutools for Excel

Kutools for Excel‘s Удалить иллюстрации и объект может удалить все изображения сразу, независимо от того, находятся ли они на активном листе или во всей книге.

1. Нажмите Кутулс > Удалить> Удалить иллюстрации и объект . Смотрите скриншот:

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

Kutools for Excel‘s Удалить иллюстрации и объект может помочь нам удалить все диаграммы, линии, изображения, автофигуры, умные рисунки, текстовые поля, связанные объекты OLE и встроенные объекты OLE на активном листе, выбранном листе или на всех листах текущей книги.
Нажмите, чтобы узнать больше…

Бесплатная загрузка Kutools for Excel от Yhao сейчас!

---

Демонстрация: удалите все изображения на активном рабочем листе или всей книге с помощью Kutools for Excel

---

Статьи по теме:

• Удалить все диаграммы Рабочие книги
• Быстро удалить все автофигуры
• Быстро удалить все текстовые поля

Если вы хотите удалить все изображения из Microsoft Excel, может потребоваться много времени, чтобы выбрать каждое изображение и удалить их одно за другим. Следующие приемы могут упростить удаление всех изображений:

Удалите все изображения на активном листе с помощью команды Перейти

… Команда «Перейти» позволяет выбрать все изображения на активном листе. Работа будет проще, если мы сможем выделить все изображения перед их удалением.

1. Нажмите F5, чтобы открыть диалоговое окно «Перейти» в Excel.

2. Нажмите кнопку «Пользовательский» и войдите в диалоговое окно «Перейти к настройке» ，, затем выберите параметр «Объект». Смотрите скриншот:

3. Затем нажмите кнопку «ОК», все изображения будут выбраны на активном листе, нажмите кнопку «Удалить», чтобы удалить их все.

Примечания:

1. Этот метод выберет все объекты на активном листе, такие как изображения, диаграммы, фигуры и т.д. Если вы не хотите удалять другие объекты, вам необходимо отменить выбор других объектов перед нажатием клавиши Delete.

2. Этот метод удалит только изображения на активном листе.

Удалите все изображения на активном листе с помощью VBA

Использование макроса VBA поможет вам быстро удалить все изображения на активном листе.

1. Удерживая нажатыми клавиши ALT + F11 в Excel, откроется окно Microsoft Visual Basic для приложений.

2. Щелкните Вставить> Модуль и вставьте следующий макрос в окно модуля.

3, нажмите клавишу F5, чтобы запустить этот макрос. И все изображения в активном листе удаляются сразу.

Удалите все изображения на активном листе или всю книгу с помощью Kutools for Excel

Kutools for ExcelАвтора Удалить графику и объект может удалить все изображения сразу, независимо от того, находятся ли они на активном листе или во всей книге.

1. Нажмите Kutools> Удалить> Удалить искусство и объект. Смотрите скриншот:

2. В диалоговом окне «Удалить графику и объект:

(1.) Установите флажок «Изображения» или другие параметры объекта в меню «Удалить .

(2.) Удалите все изображения во всей книге, установите флажок «Все листы» в разделе «Осторожно»; при удалении всех изображений на активном листе выберите опцию Активный лист; при удалении всех изображений на определенных листах выберите параметр «Выбранные листы». Смотрите скриншот:

3. Щелкните ОК. И все изображения были удалены с активного листа, выбранных листов и всей книги, если это необходимо.

Kutools for ExcelАвтора Удалить иллюстрации и объекты могут помочь нам удалить все диаграммы, линии, изображения, автофигуры, умные рисунки, текстовые поля, связанные объекты OLE и встроенные объекты OLE на активном листе, выбранном листе или во всех листах текущей книги.

Отображаем невидимые объекты на листе MS EXCEL

​Смотрите также​: Спасибо, работает​ вариант)​Guest​ проблема.​ DelShapes() For i​seazone​ кто-то знает, как​как удалить все рисунки​ они будут утеряны.​ компьютера.​

​ и набрать комбинацию​ его нужно выделить.​ и обратные ситуации,​.​

​ будет содержаться только​ с помощью инструмента​При импорте содержимого web-страниц​Оксана33​antal10​

​: Sub УдалениеКартинок()​На экелевском листе​ = 1 To​, на сайт можно​​ сделать так, чтобы​​ EXCEL . Так​ Нам следует согласиться,​

​Открываем документ Excel, содержащий​​ клавиш​ Для этого кликаем​ когда рисунок, наоборот,​Найдите новый рисунок и​ текст с web-страницы.​ Выделение группы ячеек​ на лист EXCEL​: Всем привет! Помогите​: Sub Delete_Pic() For​For Each pic​ есть куча картинок.​ Sheets.Count Sheets(i).Shapes.SelectAll Selection.Delete​ выкладывать файлы в​

​ убрать эти рисунки…​ чтобы все сразу.​ нажав на кнопку​ изображения. Переходим во​Ctrl+V​ по нему один​

​ нужно извлечь из​ дважды щелкните его.​ Затем остается этот​ (Главная/ Найти и​ может попасть множество​ удалить все картинки​ Each pic In​ In ActiveSheet.Shapes​ Мне периодически их​ Next End SubПервый​ архивах до 10​p.s. Файл используется​ Их очень много​​«OK»​​ вкладку​. В​ раз левой кнопкой​ книги. Для достижения​Щелкните рисунок, который нужно​ текст скопировать в​ выделить). Переключатель установить​

​ ненужных объектов: картинок,​ или объекты на​ ActiveSheet.Shapes If pic.Type​

​If pic.Type =​
​ все надо удалять.​ макрос удаляет со​ мегабайт.​ по работе несколькими​ по одному удалять​, так как единственной​«Файл»​Paint​ мыши. Затем выполняем​ данной цели существует​ удалить и нажмите​ EXCEL.​ на Объекты.​ элементов управления, таблиц,​ листе​ = msoPicture Then​ msoPicture Then pic.Delete​

excel2.ru

Замена или удаление изображения в Microsoft Office

​ Для этого я​​ всех листов книги​Ваша ситуация произошла​ людьми, но никто​ очень долго. За​ целью является извлечение​.​, кроме этого, можно​ щелчок правой кнопкой​ два способа. Каждый​ клавишу DELETE.​Примечание:​На первом рисунке (окно​ форм. Часть из​Спасибо…​ pic.Delete Next pic​Next pic​ использую следующий макрос​ только автофигуры, второй​ скорей всего из​ в авторстве рисунков​

​ ранее всех благодарю.​ картинок.​В открывшемся окне щелкаем​ нажать на кнопку​ мыши по выделению,​

​ из них является​Чтобы удалить несколько рисунков,​ Мы стараемся как можно​

​ Область выделения…) видно,​ этих объектов может​

Замена рисунка

1. ​Sub Picture() Dim​ End Sub​

2. ​End Sub​​Set myDocument =​​ -​​ за того, что​​ не признается​

   

3. ​Дмитрий догадкин​После этого открываем​

Удалить картинку

​ по пункту​«Вставить»​ тем самым вызывая​

​ наиболее актуальным при​ удерживая клавишу CTRL​ оперативнее обеспечивать вас​ все объекты разделены​ быть скрыта. Научимся​

Замена рисунка

1. ​ i As Long​Мотя​

2. ​Юрий М​​ ActiveSheet​​все «посторонние» объекты -​​ Вы где то​​analyst​​: F5 — выделить​​Проводник Windows​​«Сохранить как»​​, расположенную на ленте​

   

3. ​ контекстное меню. В​ тех или иных​

Удалить картинку

​ щелкните рисунки, которые​ актуальными справочными материалами​ на 2 группы​

​ отображать эти объекты,​ For i =​: См. макрос.​: И всего-то три​myDocument.Pictures.Select​

​ диаграммы, графики, надписи​​ получили данные автоматически.​: А вы бы​ — объекты -​или любой другой​

support.office.com

Извлечение изображения из документа Microsoft Excel

​, который находится в​ в блоке инструментов​ появившемся списке выбираем​ обстоятельствах. Давайте подробно​ нужно удалить и​ на вашем языке.​ (группы отделены горизонтальной​ а затем удалять​ 1 To 3​bigfatman90​ года прошло… :-)​Selection.Delete​ и т.п.»​ устранить довольно легко​ могли выложить пример​ Delete​ файловый менеджер и​ левой его части.​«Буфер обмена»​ пункт​ рассмотрим каждый из​

​ нажмите клавишу DELETE.​ Эта страница переведена​

​ линией). Инструмент Выделение​​ их.​ ActiveSheet.Shapes.Range(Array(«Picture » &​

Извлечение картинок

​: У меня все​BiGFaTMaN90​Однако, на том​seazone​ но как все​ файла?​Ахтунg​ переходим в директорию,​После этого действия запускается​.​«Копировать»​ них, чтобы вы​Щелкните рисунок, который вы​ автоматически, поэтому ее​

Способ 1: копирование

​ группы ячеек выделяет​Для примера можно скопировать​ i)).Delete Next End​ картинки в формате​: Добрый день, проблема​

1. ​ же листе есть​: Спасибо всем большое,​ сразу не знаю.​p.s. удалить рисунки​: ну их же​ в которой сохранили​ окно сохранения документа.​После этого картинка будет​.​ могли определить, какой​ хотите заменить.​ текст может содержать​ сначала объекты из​​ содержимое любой web-страницы​​ Sub​

   

   ​ *.gif​ — нужно создать​ проигрыватель WMA. И​​ проблема, как оказалось,​​ на рисунку кликните​ можно с помощью​​ можно выделить все​​ документ. В этой​​ Нам следует перейти​​ вставлена в редактор​

   

   ​Можно также после выделения​ из вариантов лучше​В разделе​ неточности и грамматические​​ нижней группы (наподобие​​ на лист, например,​

2. ​KoGG​видно в коде​ макрос, который удалял​ он тоже удаляется​​ решилась гораздо проще​​ правой кнопкой и​ правой кнопки мыши​ а потом удалить​ директории должна образоваться​ в ту директорию​ изображений и её​ изображения перейти во​ применить в конкретном​Работа с рисунками​ ошибки. Для нас​​ выделения нижнего слоя).​​ .​​: Как вариант:​​ что-то надо изменить,​ бы все картинки​​ при использовании данного​​ — выделением всех​ выберите в меню​​ + вырезать​​ или скинь их​

   

3. ​ папка, которая содержит​ на жестком диске,​ можно сохранить в​ вкладку​ случае.​на вкладке​ важно, чтобы эта​

​ После их выделения,​Для отображения скрытых объектов​ActiveSheet.Shapes.SelectAll Selection.Delete​ потому что в​ с листа, а​ макроса.​ рисунков ctrl+a и​ «размер и свойства».​

Способ 2: массовое извлечение изображений

​seazone​ в папку а​ наименование документа. Именно​ в которой желаем,​ виде файла тем​«Главная»​Скачать последнюю версию​Формат​ статья была вам​ а затем удаления​ необходимо вызвать в​The_Prist​ предложенном варианте не​ сам макрос закреплен​Можно ли так​ последующим их удалением​

1. ​ затем «свойства» и​:​ папку удали —IObit​​ в этой папке​​ чтобы разместилась папка​

   

2. ​ способом, который доступен​. Там на ленте​​ Excel​​в группе​ полезна. Просим вас​

   

3. ​ с помощью клавиши​ меню Главная/ Редактирование/​: ……​ удаляет​ за кнопкой на​ сделать, чтобы проигрыватель​MrHayk19​ переместите точку на​​analyst​​ Unlocker—этот удалит если​ и содержатся изображения.​ с картинками. Поле​ в выбранной программе.​ в блоке инструментов​Читайте также:​​Коррекция​​ уделить пару секунд​​DEL​​ Найти и выделить​Оксана33​Наверно после Pic.type=​​ листе,​​ не удалялся?​

   

4. ​: Заходим в вкладку​ «перемещать и изменять​, спасибо за ответ.​ заблокировано​ Переходим в неё.​«Имя файла»​​Преимущество данного способа заключается​​«Буфер обмена»​Как извлечь изображение из​выберите команду​ и сообщить, помогла​​, можно приниматься за​​ команду Область выделения.​: ActiveSheet.DrawingObject.Delete​ другое значение надо​

   

5. ​серфил форум наткнулся​​Все картинки, что​​ Файл, при необходимости​ объект …». после​К сожалению, не​Александр лыткин​Как видим, картинки, которые​можно оставить без​ в том, что​щелкаем по пиктограмме​ файла Microsoft Word​Изменить рисунок​ ли она вам,​

   

6. ​ вторую группу объектов.​Нажимая на название объекта​pashulka​Широкат​ на тему​ нужно удалить находятся​ преобразуем, далее заходим​ чего можете спокойно​ могу загрузить файл​: Ответ здесь.​

​ были в документе​ изменения, так как​ вы сами можете​«Копировать»​Главным критерием выбора конкретного​.​ с помощью кнопок​ Заново вызовите Инструмент​ (Picture 1) можно​:​: Приветствую вас.​

​Данный макрос удаляет​

lumpics.ru

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

​ в диапазоне A1:AB60000,​ в Файл -​ удалить данный рисунок.​ сюда — из-за​http://chewriter.ru/hitrosti/kak-udalit-vse-kartinki-v-excel.html​ Excel, представлены в​ для наших целей​

​ выбрать формат файла,​​.​ способа является тот​Найдите новый рисунок и​

​ внизу страницы. Для​​ Выделение группы ячеек,​ выделить объект, затем​toiai​Пробовал записать действия​ все картинки, но​ а все проигрыватели​ Поиск Проблем -​ кстати советую заглянуть​

​ рисунков он весит​​seazone​
​ этой папке в​

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

​ это не важно.​​ в котором сохранить​
​Существует и третий вариант,​ факт, хотите ли​ дважды щелкните его.​ удобства также приводим​ который выделит теперь​ клавишей​спасибо)…. а можно​ на макрос, только​ и саму кнопку,​ стоят правее. Возможно,​ Проверка читаемости. Нажимаем.​ на вкладку «замещающий​ 4,3 мб, выложила​: Добрый день!​ виде отдельных файлов.​ А вот в​ картинку, из поддерживаемых​ при котором после​ вы вытащить одиночное​Щелкните рисунок, который нужно​
​ ссылку на оригинал​ оставшиеся элементы (верхнюю​DEL​ ли без Select​ скроллинг запечатлелся.​

​ а кнопка желательно​​ это поможет.​ Откроется снова прежний​ текст» не оттуда​
​ сюда — http://fayloobmennik.net/201946.​Помогите, пожалуйста, разобраться​ Теперь с ними​ поле​

​ вариантов выбранного редактора​​ выделения нужно нажать​​ изображение или произвести​​ удалить и нажмите​
​ (на английском языке).​ группу).​– удалить его​ обойтись?​На листе лежат​ чтобы осталась на​Pavel55​ лист, но в​ случаем ваши данные?​ Рисунки есть на​ — в файле​ можно выполнять те​«Тип файла»​ изображений.​ на комбинацию клавиш​ массовое извлечение. В​ клавишу DELETE.​Вы можете заменить рисунок​Аналогичный подход может быть​ если нужно.​

​The_Prist​​ картинки, их все​​ листе.​​: Попробуйте так​ правом углу появятся​Pasha V​ вкладках И и​
​ Excel (*xls) ни​ же манипуляции, что​следует выбрать значение​Но, конечно, если изображений​Ctrl+C​ первом случае можно​Чтобы удалить несколько рисунков,​ в документ с​ использован и для​Совет​: for each s​ нужно удалить. Неужели​Решил проблему тем,​Sub DeletePictures()​ результаты проверки и​: Можно попровать удалить​ ТИ — их​ с того ни​ и с обычными​«Веб-страница (*.htm; *.html)»​ больше десятка, а​.​

​ удовлетвориться банальным копированием,​​ удерживая клавишу CTRL​ другой рисунок или​
​ объектов, созданных самостоятельно.​: чтобы удалить элемент​ in ActiveSheet.Shapes s.delete​ только вариант с​ что после удаления​Dim iShape As​ в них будет​ при помощи макроса:​ можно увидеть при​ с сего на​ изображениями.​. После того, как​ то и несколько​После этого запускаем любой​ а вот во​ щелкните рисунки, которые​ вы можете удалить​СОВЕТ:​ управления (см. Control​ next​​ переносом ячеек в​ картинок заново добавлять​ Shape​

​ Замещающий текст. Нажимаем​​вариант макроса №1​ клике на строку,​ одной из вкладок​Вытащить картинки из файла​ вышеуказанные настройки произведены,​ сотен, и их​

​ редактор изображений. Можно,​​ втором придется применить​ нужно удалить и​ изображение.​Другим способом удаления​ 13 на рисунке​Оксана33​ новую книгу здесь​ кнопку. Это единственное​On Error Resume​ на один из​ Sub DelAuto() Dim​ разделяющую столбцы E​ появилась куча пустых​ Excel не так​ щелкаем по кнопке​ всех нужно извлечь,​ например, воспользоваться стандартной​ процедуру конвертации, чтобы​ нажмите клавишу DELETE.​Если вы используете Microsoft​

CyberForum.ru

Удаление картинок из листа excel

​ первый взгляд. Это​​Возможно, при этом появится​

​ этих целей существует​​, которая встроена в​
​ рисунка по отдельности.​ процедуру для удаления​
​Более новые версии​ не прямо в​
​ (Разработчик/ Элементы управления).​
​- опечатка. Правильно​

​On Error Resume​​: может быть сделать​If iShape.Name Like​

planetaexcel.ru

Удалить все картинки с листа (только изображения)

​ удаления сохраняем файл​​ 1 To Sheets.Count​ рисунков тоже пробовала,​ При нажатии delete​ можно сделать либо​ диалоговое окно, в​ возможность применить конвертацию​ Windows. Производим вставку​Но, прежде всего, давайте​
​ коллекция картинок в​ Office 2007–2010 ​
​ EXCEL, а в​ Чтобы открыть вкладку​ так:​ Next​ кнопку на панели​ «Picture*» Then iShape.Delete​
​ и видим, что​ For Each S​ но при закрытии​ ничего не удаляется,​ путем простого копирования​ котором будет сообщаться,​

​ документа Excel в​​ в эту программу​ все-таки рассмотрим, как​ документе Office 2007.​Щелкните рисунок, который вы​ стандартное приложение Windows​ Разработчик зайдите в​ActiveSheet.DrawingObjects.Delete​Activesheet.Shapes.SelectAll​ быстрого доступа или​

​Next​​ размер стал намного​ In Sheets(i).Shapes If​ и последующем открытии​ куча пустых рисунков​ изображения, либо путем​ что файл может​

​ формат HTML. При​​ любым из тех​

​ произвести извлечение изображения​​При работе с файлами​ хотите заменить.​ Блокнот (Notepad.exe). После​
​ меню Кнопка офис/​The_Prist​Selection.Delete​ к макросу прилепить​On Error GoTo​
​ меньше.​ S.Type = msoAutoShape​

planetaexcel.ru

Удалить все картинки с листа. VBA

​On Error GoTo​​ сочетание клавиш. так​
​ 0​Дмитрий Д​
​ Then S.Delete Next​
​ не пропадают.​
​ при внесении изменений​ веб-страницы, встроенными инструментами​
​ с форматом​

​ автоматически будут сохранены​​ ней доступен. В​

planetaexcel.ru

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

​ копирования.​​ только случаи, когда​Формат​ из Буфера обмена​ Показывать вкладку Разработчик​
​Добавлено через 3 минуты​
​ 0​ же можно добавить​End Sub​: Всем доброго дня!​ Next End Subвариант​javvva​ приходится ждать по​

​ Эксель.​​«Веб-страница»​
​ в отдельной папке​

​ большинстве вариантов можно​​Для того чтобы скопировать​

​ нужно вставить изображение​​и выберите команду​

​ в новый документ​​ на ленте.​​pashulka​​End Sub​ свой пункт в​Дмитрий Д​

​У меня следующая​​ макроса №2 Sub​:​ несколько минут… Может,​

​Автор: Максим Тютюшев​​, и при конвертации​

​ на жестком диске​​ воспользоваться универсальным способом​​ изображение, прежде всего​ в документ, но​
​Изменить рисунок​
​ Блокнота в нем​​Выделить ВСЕ объекты можно​
​, спасибо)​
​Широкат​​ меню ПКМ (тоже​

CyberForum.ru

​: Спасибо! Подошло​