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

Содержание

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

Как-то в прошлый раз мы занимались удалением повторяющихся значений в Excel. А вот сейчас хочу провести некоторый ликбез по удалению картинок из excel, поскольку такая задача иногда встает при экспорте web-страниц из интернета. Картинки эти, надо сказать – весьма зловредные, и простым “скопировать”-“вставить значения” тут не обойтись. Выделять каждую и удалять по одной – тоже не вариант. Да, можно, конечно, применить тяжелую артиллерию в виде макросов и VBA, но имеет смысл их использовать, если требуется сделать что-то очень сложное: удалить картинки из определенного столбца, а в остальных столбцах оставить, или удалить только картинки, а другие объекты – оставить. Ну, или же если требуется делать это по пять раз на дню. Во всех остальных случаях, когда просто требуется получить из веб-странички чистый текст, удалив как картинки, так и все остальные объекты – задача удаления картинок с листов эксель решается гораздо меньшими усилиями и буквально двумя щелчками мыши. Ну ладно, тремя. Еще кнопку ОК нажать 🙂 Под катом – разберем, как.

Итак, предположим, что у нас есть импортированная таблица, к которой также привязаны изображения. В моем случае изображения не показаны, но это не важно – они там, где крестики.

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

Первое, что мы делаем – нажимаем кнопочку F5 на функциональной клавиатуре, чтобы вызвать диалог “перехода”. Любители делать это через меню также могут нажать на Правка->Перейти, или нажать комбинацию Ctrl+G.

Но по мне – это только два лишних клика мыши, или необходимость еще и тянуться мизинцем до Ctrl. Нам, ленивым, клавишу F5 нажать, конечно, проще. После этого диалог “переход” выскакивает сразу же:

В меню – щелкаем на кнопке “Выделить”. Открывается диалог – “а чего же это мы хотим выделить”, он же “Выделение группы ячеек”:

В оном диалоге выбираем самый последний пункт – “объекты”, после чего жмем ОК. Результат – все картинки выделены:

Чего же осталось? Дело за малым. Волшебная кнопочка Delete.

В результате у нас получился лист, в котором только значения в ячейках (ну, или формулы, если они там были). Можно я не буду приводить его скриншот, да? 🙂 Все это работает для Excel 2003, но в 2013 тоже должно (если еще более простого способа не предложили), мне как-то недосуг проверять было на рабочей машине, а на домашней мне этот 2013-ый монстр нафиг не сдался.

Вот так мы в три щелчка мыши и два щелчка клавишами очистили наш эксельный лист от картинок. А то макросы, макросы… Так не долго дойти до того, что все гиперссылки и пустые ячейки макросами удалять будем вместо того, чтобы пару раз просто щелкнуть мышью… Но об этом – в следующий раз.

7

Удаление всех объектов на листе в Excel

При копировании на рабочий лист Excel информации со страницы из сети Интренет периодически помимо текста вставляются ненужные картинки и различные элементы управления (кнопки, флажки и т.д.). Если их количество значительное, то удалять «вручную» окажется трудоемким процессом.

Имеется несколько способов решить данную проблему: средствами программы Excel и с помощью макроса VBA.

Удаление картинок и объектов в Excel средствами программы

В результате вставки данных со страницы Интернет-сайта скопировались ненужные картинки и элементы управления:

Чтобы удалить ненужные объекты, сначала необходимо выделить эти элементы, для этого перейдите в меню «Главная» -> «Редактирование» -> «Найти и выделить«-> «Выделение группы ячеек» (можно также кликнуть клавишу F5, а затем нажать кнопку «Выделить…«).

 

В открывшемся окне необходимо выбрать пункт «Объекты

» и кликнуть «OK«:

В результате Excel выделит все требуемые объекты (если необходимо какие то элементы оставить, то необходимо зажать клавишу Ctrl и левой кнопкой мыши кликнуть на необходимые элементы, для снятия выделения):

Теперь осталось только нажать клавишу Delete, чтобы удалить все выделенные объекты.

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

Указанную выше проблему можно решить, написав в редакторе Visual Basic следующий макрос:

Sub DeleteObjects()
  ActiveSheet.DrawingObjects.Delete
End Sub

Если же необходимо удалить только картинки, тогда макрос необходимо изменить на:

Sub DeletePictures()
  Dim xlShape As Shape
  For Each xlShape In ActiveSheet.Shapes
    If xlShape.Type = msoPicture Then xlShape.Delete
  Next
End Sub

Можно дополнить макрос еще одной полезной функцией — удаление гиперссылок:

ActiveSheet.Hyperlinks.Delete

Объединив два действия в одну функцию DeleteObjects будут удалены все объекты и ссылки:

Sub DeleteObjects()
  ActiveSheet.DrawingObjects.Delete
  ActiveSheet.Hyperlinks.Delete
End Sub

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

Как удалить все картинки в Excel « Марк и Марта.Ру. Записки отца-программиста

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

Ячеек таких было штук 100. Руками удалять картинки – не вариант. К тому же, скоро их количество должно вырасти. Задача – как удалить автоматически картинки в Excel.

Решение оказывается довольно простым с помощью пяти строк макроса на Visual Basic. В 2010 Excel кнопка запуска макросов находится в меню «Разработчик», которое по умолчанию скрыто. Чтобы его включить, нужно зайти в «Файл -> Параметры», выбрать пункт «Настройка ленты» и в окне справа отметить галочку около пункта «Разработчик».

Включение панели Разработчик в Excel 2010

После включения опции «Разработчик» в риббоне появится кнопка «Visual Basic».

Риббон с кнопкой Visual Basic

 

Для ввода запуска кода нужно нажать на кнопку «Visual Basic», после чего откроется редактор кода.

Редактор кода Visual Basic

 

В редакторе нужно выбрать, для какого объекта нужен код – для какого-то листа или для всей книги. Двойным кликом на объект (лист или книгу) откроется окно для ввода кода, куда нужно ввести код ниже и нажать на кнопку Run (F5)

Sub DeletePictures()

For Each pic In ActiveSheet.Shapes

If pic.Type = msoPicture Then pic.Delete

Next pic

End Sub

Код процедуры удаления картинок на листе

 

Смотрите также: Двойные кавычки в Excel


Удалить из excel все картинки Excelka.ru

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

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

Ячеек таких было штук 100. Руками удалять картинки – не вариант. К тому же, скоро их количество должно вырасти. Задача – как удалить автоматически картинки в Excel.

Решение оказывается довольно простым с помощью пяти строк макроса на Visual Basic. В 2010 Excel кнопка запуска макросов находится в меню «Разработчик», которое по умолчанию скрыто. Чтобы его включить, нужно зайти в «Файл -> Параметры», выбрать пункт «Настройка ленты» и в окне справа отметить галочку около пункта «Разработчик».

Включение панели Разработчик в Excel 2010

После включения опции «Разработчик» в риббоне появится кнопка «Visual Basic».

Риббон с кнопкой Visual Basic

Для ввода запуска кода нужно нажать на кнопку «Visual Basic», после чего откроется редактор кода.

Редактор кода Visual Basic

В редакторе нужно выбрать, для какого объекта нужен код – для какого-то листа или для всей книги. Двойным кликом на объект (лист или книгу) откроется окно для ввода кода, куда нужно ввести код ниже и нажать на кнопку Run (F5)

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

Как-то в прошлый раз мы занимались удалением повторяющихся значений в Excel. А вот сейчас хочу провести некоторый ликбез по удалению картинок из excel, поскольку такая задача иногда встает при экспорте web-страниц из интернета. Картинки эти, надо сказать — весьма зловредные, и простым «скопировать»-«вставить значения» тут не обойтись. Выделять каждую и удалять по одной — тоже не вариант. Да, можно, конечно, применить тяжелую артиллерию в виде макросов и VBA, но имеет смысл их использовать, если требуется сделать что-то очень сложное: удалить картинки из определенного столбца, а в остальных столбцах оставить, или удалить только картинки, а другие объекты — оставить. Ну, или же если требуется делать это по пять раз на дню. Во всех остальных случаях, когда просто требуется получить из веб-странички чистый текст, удалив как картинки, так и все остальные объекты — задача удаления картинок с листов эксель решается гораздо меньшими усилиями и буквально двумя щелчками мыши. Ну ладно, тремя. Еще кнопку ОК нажать 🙂 Под катом — разберем, как.

Итак, предположим, что у нас есть импортированная таблица, к которой также привязаны изображения. В моем случае изображения не показаны, но это не важно — они там, где крестики.

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

Первое, что мы делаем — нажимаем кнопочку F5 на функциональной клавиатуре, чтобы вызвать диалог «перехода». Любители делать это через меню также могут нажать на Правка->Перейти, или нажать комбинацию Ctrl+G.

Но по мне — это только два лишних клика мыши, или необходимость еще и тянуться мизинцем до Ctrl. Нам, ленивым, клавишу F5 нажать, конечно, проще. После этого диалог «переход» выскакивает сразу же:

В меню — щелкаем на кнопке «Выделить». Открывается диалог — «а чего же это мы хотим выделить», он же «Выделение группы ячеек»:

В оном диалоге выбираем самый последний пункт — «объекты», после чего жмем ОК. Результат — все картинки выделены:

Чего же осталось? Дело за малым. Волшебная кнопочка Delete.

В результате у нас получился лист, в котором только значения в ячейках (ну, или формулы, если они там были). Можно я не буду приводить его скриншот, да? 🙂 Все это работает для Excel 2003, но в 2013 тоже должно (если еще более простого способа не предложили), мне как-то недосуг проверять было на рабочей машине, а на домашней мне этот 2013-ый монстр нафиг не сдался.

Вот так мы в три щелчка мыши и два щелчка клавишами очистили наш эксельный лист от картинок. А то макросы, макросы… Так не долго дойти до того, что все гиперссылки и пустые ячейки макросами удалять будем вместо того, чтобы пару раз просто щелкнуть мышью… Но об этом — в следующий раз.

Удаление всех объектов на листе в Excel

При копировании на рабочий лист Excel информации со страницы из сети Интренет периодически помимо текста вставляются ненужные картинки и различные элементы управления (кнопки, флажки и т.д.). Если их количество значительное, то удалять «вручную» окажется трудоемким процессом.

Имеется несколько способов решить данную проблему: средствами программы Excel и с помощью макроса VBA.

Удаление картинок и объектов в Excel средствами программы

В результате вставки данных со страницы Интернет-сайта скопировались ненужные картинки и элементы управления:

Чтобы удалить ненужные объекты, сначала необходимо выделить эти элементы, для этого перейдите в меню «Главная» -> «Редактирование» -> «Найти и выделить«-> «Выделение группы ячеек» (можно также кликнуть клавишу F5, а затем нажать кнопку «Выделить. «).

В открывшемся окне необходимо выбрать пункт «Объекты» и кликнуть «OK«:

В результате Excel выделит все требуемые объекты (если необходимо какие то элементы оставить, то необходимо зажать клавишу Ctrl и левой кнопкой мыши кликнуть на необходимые элементы, для снятия выделения):

Теперь осталось только нажать клавишу Delete, чтобы удалить все выделенные объекты.

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

Указанную выше проблему можно решить, написав в редакторе Visual Basic следующий макрос:

Если же необходимо удалить только картинки, тогда макрос необходимо изменить на:

Можно дополнить макрос еще одной полезной функцией — удаление гиперссылок:

Объединив два действия в одну функцию DeleteObjects будут удалены все объекты и ссылки:

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

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

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).

Вы можете заменить рисунок в документ с другой рисунок или вы можете удалить изображение.

При удалении рисунок PowerPoint увидеть Удаление изображения.

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

Щелкните рисунок, который вы хотите заменить.

Откройте вкладку Формат и выберите команду Изменить рисунок.

Найдите новый рисунок и дважды щелкните его.

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

Щелкните рисунок, который нужно удалить и нажмите клавишу DELETE.

Чтобы удалить несколько рисунков, удерживая клавишу CTRL щелкните рисунки, которые нужно удалить и нажмите клавишу DELETE.

Не удается выделить рисунок?

Если не удается выделить рисунок, вероятно, это фонового рисунка.

Чтобы выбрать фонового рисунка в Word: перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)

Чтобы выбрать фонового рисунка в PowerPoint: перейдите на вкладку Конструктор и выберите Формат фона. Нажмите измените рисунок заливки в области Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».

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

Щелкните рисунок, который вы хотите заменить.

В разделе Работа с рисунками на вкладке Формат в группе Коррекция выберите команду Изменить рисунок.

Найдите новый рисунок и дважды щелкните его.

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

Щелкните рисунок, который нужно удалить и нажмите клавишу DELETE.

Чтобы удалить несколько рисунков, удерживая клавишу CTRL щелкните рисунки, которые нужно удалить и нажмите клавишу DELETE.

Совет: Можно также использовать эту процедуру для удаления коллекция картинок в документе Office 2007.

Не удается выделить рисунок?

Если не удается выделить рисунок, вероятно, это фонового рисунка.

Чтобы выбрать фонового рисунка в Word: перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)

Чтобы выбрать фонового рисунка в PowerPoint: перейдите на вкладку Конструктор и выберите Стили фона > Формат фона. Нажмите измените рисунок заливки в диалоговом окне Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».

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

Щелкните рисунок, который вы хотите заменить.

Перейдите на вкладку Формат рисунка и нажмите кнопку Изменить рисунок.

Найдите новый рисунок и дважды щелкните его.

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

Щелкните рисунок, который нужно удалить и нажмите клавишу Backspace.

Не удается выделить рисунок?

Если не удается выделить рисунок, вероятно, это фонового рисунка.

Чтобы выбрать фонового рисунка в Word: перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)

Чтобы выбрать фонового рисунка в PowerPoint: перейдите на вкладку Конструктор и выберите Формат фона. Нажмите измените рисунок заливки в диалоговом окне Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».

Excel по-русски Excel по-русски

Бен Рэмпсон (Ben Rampson), руководитель проектов команды Excel, расскажет об очистке таблиц.

Пользователи часто присылают мне файлы для иллюстрации своих вопросов при работе с программой Excel. Недавно я заметил в некоторых файлах одну общую проблему, которая влияет на размер и время отклика файла. Проблема эта – в скрытых и невидимых объектах.

Сбор данных в программе Excel часто бывает связан с объединением информации из разных источников – списков и таблиц, публикуемых в интернете. Пользователи копируют данные из первоначального источника и, сами того не желая, вставляют вместе с ними в таблицу дополнительные объекты, не несущие информации. Эти объекты (формы, текстовые ячейки, элементы управления и т.д.) зачастую не видны пользователю после вставки данных, но они могут приводить к замедлению работы программы и увеличению размера файла. Избежать появления нежелательных скрытых и невидимых объектов можно только одним способом — найти и удалить их после вставки данных в процессе чистки документа.

Ниже приведен пример вставки в Excel 2007 данных, взятых с одного сайта. Массив данных занял 35 строк, но на картинке показаны только несколько первых.

После вставки данных (и дополнительных объектов) в Excel.

При взгляде на эту картинку становится очевидным присутствие дополнительных объектов в таблице Excel: иконка в ячейке A1 и флажки в колонке B. Я мог бы просто выделить и удалить эти видимые объекты, но всегда есть вероятность что-то упустить.

Следующие действия помогут найти и удалить все дополнительные объекты в таблице Excel 2007.

Первое, что нужно сделать – удостовериться, что в документе есть дополнительные объекты. Самый простой способ увидеть объекты в таблице – открыть панель выделения (на вкладке Home выберите Editing Chunk > нажмите на Find and Select Dropdown > выберите вариант Selection Pane, отображающий панель выделения). Selection Pane покажет список объектов на текущем листе и их состояние – видимые или скрытые. Если Selection Pane пуста, в таблице нет дополнительных объектов.

Список панели выделения и видимости для моей таблицы. Обратите внимание, что в этот документ вставлено более 100 объектов. Мне приходилось видеть пользовательские файлы с тысячами скрытых объектов.

Открыв панель выделения и удостоверившись, что в файле есть дополнительные объекты, необходимо перевести таблицу в режим конструктора (Design Mode), если ваш документ поддерживает его. Режим Design Mode работает только при наличии в документе элементов управления определенного типа. Переключение в режим Design Mode позволяет выделить все элементы управления, а не только простые фигуры и элементы управления формы. Чтобы переключиться в режим Design Mode, выберите кнопку Design Mode в Controls Chunk на вкладке Developer Tab. Если на ленте эта кнопка неактивна, значит, ваш документ не содержит те типы элементов управления, которые требуются на этом этапе. (Внимание: если вкладка Developer Tab не видна на ленте, ее можно активизировать следующим образом: кнопка Button > Excel Options > поставить отметку напротив “Show Developer tab in the Ribbon” на вкладке Popular по умолчанию).

Теперь можно выделять объекты, используя диалоговое окно Go To Special («Выделение группы ячеек»). Для выделения всех объектов в таблице: Ctrl+G – чтобы открыть диалоговое окно Go To > выберите кнопку Special > выберите Object > нажмите OK. Объекты станут выделенными, а на листе появятся метки их выделения.

Мой документ со всеми выделенными объектами. На картинке видно, что кроме видимых объектов я выделил некоторые поля, которые до этого были скрыты.

На этом этапе можно просто нажать кнопку Delete и удалить все эти объекты. Также можно удалить лишь некоторые из них: если нужно сохранить определенные объекты, нажимайте на них, удерживая кнопку ctrl (будь то в документе или на панели выделения). Так вы удалите нужные объекты из выделения перед тем, как удалить из документа все остальные.

Немного работы по очистке данных, и вы избежите попадания в документ ненужных объектов, как результат – вы получите более быструю работу программы и меньший размер файла.

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

Отображаем невидимые объекты на листе 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​видно в коде​ макрос, который удалял​ он тоже удаляется​​ решилась гораздо проще​​ правой кнопкой и​

Быстрое удаление картинок в Excel

Информация о материале
Категория: Макросы 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» может быть подставлено любое другое имя листа рабочей книги.

Другие материалы по теме:

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

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

  1. Щелкните рисунок, который вы хотите заменить.

  2. Откройте вкладку Формат и выберите команду Изменить рисунок.

    Откройте вкладку Формат и выберите команду Изменить рисунок

  3. Найдите новый рисунок и дважды щелкните его.

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

Щелкните рисунок, который нужно удалить и нажмите клавишу DELETE.

Чтобы удалить несколько рисунков, удерживая клавишу CTRL щелкните рисунки, которые нужно удалить и нажмите клавишу DELETE.

Не удается выделить рисунок?

Если не удается выделить рисунок, вероятно, это фонового рисунка.

Чтобы выбрать фонового рисунка в Word:    перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)

Чтобы выбрать фонового рисунка в PowerPoint:    перейдите на вкладку Конструктор и выберите Формат фона. Нажмите измените рисунок заливки в области Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».

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

  1. Щелкните рисунок, который вы хотите заменить.

  2. В разделе Работа с рисунками на вкладке Формат в группе Коррекция выберите команду Изменить рисунок.

    Вкладка «Работа с рисунками»

  3. Найдите новый рисунок и дважды щелкните его.

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

Щелкните рисунок, который нужно удалить и нажмите клавишу DELETE.

Чтобы удалить несколько рисунков, удерживая клавишу CTRL щелкните рисунки, которые нужно удалить и нажмите клавишу DELETE.

Совет: Можно также использовать эту процедуру для удаления коллекция картинок в документе Office 2007.

Не удается выделить рисунок?

Если не удается выделить рисунок, вероятно, это фонового рисунка.

Чтобы выбрать фонового рисунка в Word:    перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)

Чтобы выбрать фонового рисунка в PowerPoint:    перейдите на вкладку Конструктор и выберите Стили фона > Формат фона. Нажмите измените рисунок заливки в диалоговом окне Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».

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

  1. Щелкните рисунок, который вы хотите заменить.

  2. Перейдите на вкладку Формат рисунка и нажмите кнопку Изменить рисунок.

    На вкладке "Формат рисунка" выберите команду Изменить рисунок

  3. Найдите новый рисунок и дважды щелкните его.

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

Щелкните рисунок, который нужно удалить и нажмите клавишу Backspace.

Не удается выделить рисунок?

Если не удается выделить рисунок, вероятно, это фонового рисунка.

Чтобы выбрать фонового рисунка в Word:    перейдите на вкладку Вставка и выберите заголовок > Изменить верхний колонтитул. (После перехода в режим верхний и нижний колонтитулы, можно будет для выделения рисунка.)

Чтобы выбрать фонового рисунка в PowerPoint:    перейдите на вкладку Конструктор и выберите Формат фона. Нажмите измените рисунок заливки в диалоговом окне Формат фона. Для получения дополнительных сведений нажмите Добавить фоновый рисунок слайдов и в разделе с именем «Удалить фоновый рисунок».

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

В этой короткой статье я покажу вам, как можно быстро удалить все нежелательные гиперссылки с листа Excel и предотвратить их появление в будущем. Решение работает во всех версиях Excel, начиная с Excel 2003 до современных Excel 2013 и Excel 2016.

Каждый раз, когда вы вводите адрес электронной почты или URL-адрес в ячейке, Excel автоматически преобразует их в интерактивную гиперссылку.По моему опыту, это поведение скорее раздражает, чем помогает 🙁
Так что после ввода нового электронного письма в мою таблицу или редактирования URL-адреса и нажатия Enter, я обычно нажимаю Ctrl + Z, чтобы удалить гиперссылку, которую Excel автоматически создал…

Сначала я покажу , как вы можете удалить все случайно созданные ненужные гиперссылки , а затем, как настроить Excel на , отключив функцию автогиперссылки .

Удалить несколько гиперссылок во всех версиях Excel

В Excel 2000-2007 нет встроенной функции для удаления нескольких гиперссылок за раз, только по одной.Вот простой прием, который позволяет преодолеть это ограничение, конечно, прием работает и в Excel 2010 и 2013.

  • Выберите любую пустую ячейку за пределами вашего стола.
  • Тип 1 для этой ячейки.
  • Скопируйте эту ячейку (Ctrl + C).
  • Выберите столбцы с гиперссылками: нажмите на любую ячейку с данными в 1-м столбце и нажмите Ctrl + Пробел, чтобы выделить весь столбец:
  • Если вы хотите выбрать более 1 столбца за раз: после выбора столбца 1 с удерживайте нажатой клавишу Ctrl, щелкните любую ячейку во 2-м столбце и нажмите пробел, чтобы выделить все ячейки во 2-м столбце без потери выделения в 1-м столбце.
  • Щелкните правой кнопкой мыши по любой выбранной ячейке и выберите « Специальная вставка » из контекстного меню:
  • В диалоговом окне « Paste Special » установите переключатель « Multiply » в разделе « Операция »:
  • Нажмите Хорошо . Все гиперссылки удалены 🙂

Как удалить все гиперссылки в 2 клика (только в Excel 2010 и 2013)

В Excel 2010 Microsoft наконец-то добавила возможность удалять несколько гиперссылок одновременно:

  • Выделите весь столбец с гиперссылками: щелкните любую ячейку с данными и нажмите Ctrl + Пробел.
  • Щелкните правой кнопкой мыши по любой выбранной ячейке и выберите « Удалить гиперссылки » из контекстного меню. Примечание: Если вы выберете одну ячейку, то этот пункт меню изменится на «Удалить гиперссылку», хороший пример удобства использования 🙁
  • Все гиперссылки удалены из колонки 🙂

Отключить автоматическое создание гиперссылок в Excel

  • В Excel 2007 нажмите кнопку Office -> Параметры Excel .
    В Excel 2010 и 2013 перейдите на вкладку Файл -> Параметры .
  • В диалоговом окне « Параметры Excel » перейдите на вкладку « Проверка » в левом столбце и нажмите кнопку « Параметры автозамены »:
  • В диалоговом окне « Параметры автозамены » перейдите на вкладку « Автоформат при вводе » и снимите флажок « Интернет и сетевые пути с гиперссылками ».
  • Дважды щелкните ОК , чтобы закрыть оба диалоговых окна и вернуться к рабочему листу Excel.

Теперь введите любой URL или адрес электронной почты в любую ячейку — Excel сохраняет простой текстовый формат 🙂
Если вам действительно нужно создать гиперссылку, просто нажмите Ctrl + K, чтобы открыть диалоговое окно «Вставить гиперссылку».

Вы также можете быть заинтересованы в:

,
Сохранение нескольких изображений из ряда Excel на компьютер Переполнение стека
  1. Товары
  2. Клиенты
  3. Случаи использования
  1. Переполнение стека Публичные вопросы и ответы
  2. Команды Частные вопросы и ответы для вашей команды
  3. предприятие Частные вопросы и ответы для вашего предприятия
  4. работы Программирование и связанные с ним технические возможности карьерного роста
  5. Талант Нанимать технический талант
  6. реклама Связаться с разработчиками по всему миру
,

листов Google — Удалить www. из доменов в Excel

Переполнение стека
  1. Товары
  2. Клиенты
  3. Случаи использования
  1. Переполнение стека Публичные вопросы и ответы
  2. Команды Частные вопросы и ответы для вашей команды
  3. предприятие Частные вопросы и ответы для вашего предприятия
  4. работы Программирование и связанные с ним технические возможности карьерного роста
  5. Талант Нанимать технический талант
  6. реклама Связаться с разработчиками по всему миру
,

vba — вставка картинки с URL в Excel для Mac 2016

Переполнение стека
  1. Товары
  2. Клиенты
  3. Случаи использования
  1. Переполнение стека Публичные вопросы и ответы
  2. Команды Частные вопросы и ответы для вашей команды
  3. предприятие Частные вопросы и ответы для вашего предприятия
  4. работы Программирование и связанные с ним технические возможности карьерного роста
  5. Талант Нанимать технический талант
  6. реклама Связаться с разработчиками по всему миру

Загрузка…

  1. Авторизоваться зарегистрироваться
.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *