MyTetra Share
Делитесь знаниями!
удаление картинок в Excel
Время создания: 16.03.2019 23:43
Текстовые метки: vba,Shapes
Раздел: !Закладки - VBA - Excel - Shapes

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

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования