Как удалить все изображения в диапазоне ячеек?

Если в вашем листе есть несколько изображений, и вы хотите удалить некоторые из них в указанном диапазоне, как быстро справиться с этой задачей?

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

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

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

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

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Примечание: В приведенном выше коде A5:B8 — это диапазон, из которого вы хотите удалить изображения. Измените его по своему усмотрению.

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

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

Если вам нужно удалить все изображения с листа или из книги, утилита Kutools для Excel «Удалить иллюстрации и объекты» может помочь вам.

После установки Kutools для Excel выполните следующие действия:

1. Щелкните Kutools > Удалить > Удалить иллюстрации и объекты, см. скриншот:

2. В диалоговом окне «Удалить иллюстрации и объекты» отметьте Изображения в разделе Удалить, а затем выберите область, из которой вы хотите удалить изображения, в разделе Искать в, см. скриншот:

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