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