Vba excel как удалить картинку с листа

Excel, just like other Office products, supports inserting pictures of various formats into your workbooks. However, deleting them may be time consuming in large workbooks if you’re trying to find and delete every single image manually. Let us show you how to make Excel delete all pictures automatically using VBA.

How to make Excel delete all pictures

Pictures are stored in the Pictures collection under a worksheet object. This means that we can loop through pictures in a worksheet and delete them.

For Each pic In ActiveSheet.Pictures
    pic.Delete
Next pic
To delete the pictures from the entire workbook, we need to check every sheet.

For Each ws In ActiveWorkbook.Worksheets
    For Each pic In ws.Pictures
        pic.Delete
    Next pic
Next ws

You can use codes in two ways:

• Module
• Immediate Window

In the Module method, you need to add the module into the workbook or the add-in file. Copy and paste the code into the module to run it. The main advantage of the module method is that it allows saving the code in the file, so that it can be used again later. Furthermore, the subroutines in modules can be used by icons in the menu ribbons or keyboard shortcuts. Remember to save your file in either XLSM or XLAM format to save your VBA code.

The Immediate Window method, on the other hand, is essentially a quick and dirty method where you can simply copy and paste the code into the Immediate Window and press the Enter key to run it. Unfortunately, any code you use in the Immediate Window will not be saved. Also note that icons and keyboard shortcuts will not be available.

Delete pictures in active sheet

Module method:

Sub DeletePicturesInActiveSheet()
    For Each pic In ActiveSheet.Pictures
        pic.Delete
    Next pic
End Sub

Immediate Window method:

For Each pic In ActiveSheet.Pictures: pic.Delete: Next pic

Delete pictures in selection

Module method:

Sub DeletePicturesInActiveWorkbook()
    For Each ws In ActiveWorkbook.Worksheets
      For Each pic In ws.Pictures
        pic.Delete
      Next pic
    Next ws
End Sub

Immediate Window method:

For Each ws In ActiveWorkbook.Worksheets: For Each pic In ws.Pictures: pic.Delete: Next pic: Next ws

Если вы хотите удалить все изображения из 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

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

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

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