Как удалить все рисунки из excel – Как удалить все картинки в excel — Ульяновск сегодня

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

Содержание

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

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

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

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

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

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

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

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

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

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

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

chewriter.ru

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

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

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

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

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

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

Открываем документ Excel, содержащий

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

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

нужно извлечь из дважды щелкните его. Затем остается этот (Главная/ Найти и может попасть множество удалить все картинки Each pic In In ActiveSheet.Shapes Мне периодически их Next End SubПервый архивах до 10p.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 picNext pic использую следующий макрос только автофигуры, второй скорей всего из в авторстве рисунков

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

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

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

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

Sub Picture() Dim End Sub
End SubSet myDocument = - за того, что не признается
Дмитрий догадкинПосле этого открываем

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

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

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

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

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

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

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

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

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

support.office.com⁪>

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

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

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

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

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

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

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

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

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

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

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

my-excel.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 после вставки из буфера обмена попали рисунки, которые совершенно не нужны для дальнейшей обработки. Получилось это в результате работы с интернет-банкингом – в некоторые ячейки перенеслись картинки с гиперссылками на подробную информацию.

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

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

macros-vba.ru

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

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

Подробности

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

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

Удаление картинок с активного рабочего листа 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 скопированную таблицу с сайта – расписание электричек, поездов, расписание уроков и тому подобное, зачастую видели различные элементы управления, которые засоряли таблицу (Рис.1). Избавиться от них очень хочется, но как это сделать быстро?

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

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

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

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

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

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

markimarta.ru