Удалить из excel все картинки – Excel. Удаление посторонних объектов из книги « Марк и Марта.Ру. Записки отца-программиста

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

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

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

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

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

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

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

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

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

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

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

2

chewriter.ru

Как удалить все картинки в 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

markimarta.ru

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

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

macros-vba.ru

Удаление всех объектов на листе в 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

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

exba.ru

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

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

Подробности

Категория: Макросы Excel

Опубликовано: 04 апреля 2016

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

webhamster.ru

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

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

Подробности

Категория: Макросы Excel

Опубликовано: 04 апреля 2016

Наверняка все знают как удалить картинку с рабочего листа Excel. Подвести курсор мыши к картинке, кликнуть по ней левой кнопкой мыши и нажать клавишу Delete на клавиатуре, но как быть если картинок много?

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

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

Удаление картинок с активного рабочего листа Excel циклом

1.Sub ImgDeleteSht()

2.Dim Img As Shape

3.For Each Img In ActiveSheet.Shapes

4.Img.Delete

5.Next Img

6.End Sub

Удаление картинок с активного рабочего листа Excel без цикла

1.Sub ImgDeleteSht2()

2.ActiveSheet.Shapes.SelectAll

3.Selection.Delete

4.End Sub

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

01.Sub ImgDeleteWbk()

02.Dim Sht As Worksheet

03.Dim Img As Shape

04.For Each Sht In ActiveWorkbook.Sheets

05.For Each Img In Sht.Shapes

06.Img.Delete

07.Next Img

08.Next Sht

09.End Sub

Копирование картинок с активного листа на другой лист

1.Sub ImgCopy()

2.ActiveSheet.Shapes.SelectAll

3.Selection.Copy

4.Sheets(«Лист2»).Select

5.ActiveSheet.Paste

6.End Sub

 *Вместо «Лист2» может быть подставлено любое другое имя листа рабочей книги.

Перемещение картинок с активного листа на другой лист

1.Sub ImgMove()

2.ActiveSheet.Shapes.SelectAll

3.Selection.Cut

4.Sheets(«Лист2»).Select

5.ActiveSheet.Paste

6.End Sub

*Вместо «Лист2» может быть подставлено любое другое имя листа рабочей книги.

webhamster.ru

Excel. Удаление посторонних объектов из книги « Марк и Марта.Ру. Записки отца-программиста

Вставив в Excel скопированную таблицу с сайта – расписание электричек, поездов, расписание уроков и тому подобное, зачастую видели различные элементы управления, которые засоряли таблицу (Рис.1). Избавиться от них очень хочется, но как это сделать быстро?

Рисунок 1. Лишние чекбоксы в таблице Excel

Для того, чтобы удалить «чекбоксы» (Рис.1) из таблицы Excel, нужно воспользоваться функцией «Выделить группу ячеек» из группы «Найти и выделить».

Рисунок 2. Выбор чекбоксов

 

В открывшемся окне нужно выбрать пункт «Объекты» и нажать ОК.

Рисунок 3. Выбор чекбоксов и других объектов

После этого нужно нажать кнопку «Delete» на клавиатуре для удаления. Кнопка «Удалить» в риббоне будет неактивна!

markimarta.ru

alexxlab

    Отправить ответ

    avatar
      Подписаться  
    Уведомление о