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

Подробности

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

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

Наверняка все знают как удалить картинку с рабочего листа Excel. Подвести курсор мыши к картинке, кликнуть по ней левой кнопкой мыши и нажать клавишу Delete на клавиатуре, но как быть если картинок много?

Необходимость в быстром удалении большого количества картинок появилась после вставки на лист рабочей книги Excel информации, скопированной на одной из интернет-страниц. Вместе с нужной информацией на лист были вставлены различные элементы управления, кнопки, баннеры и изображения товаров, что потребовало чистки.

Ниже приведены несколько процедур, позволяющие решить задачу удаления картинок, а также копирования или перемещения картинок на другой лист.

Удаление картинок с активного рабочего листа Excel циклом

1.Sub ImgDeleteSht()

2.Dim Img As Shape

3.For Each Img In ActiveSheet.Shapes

4.Img.Delete

5.Next Img

6.End Sub

Удаление картинок с активного рабочего листа Excel без цикла

1.Sub ImgDeleteSht2()

2.ActiveSheet.Shapes.SelectAll

3.Selection.Delete

4.End Sub

Удаление всех картинок на всех листах активной рабочей книги

01.Sub ImgDeleteWbk()

02.Dim Sht As Worksheet

03.Dim Img As Shape

04.For Each Sht In ActiveWorkbook.Sheets

05.For Each Img In Sht.Shapes

06.Img.Delete

07.Next Img

08.Next Sht

09.End Sub

Копирование картинок с активного листа на другой лист

1.Sub ImgCopy()

2.ActiveSheet.Shapes.SelectAll

3.Selection.Copy

4.Sheets("Лист2").Select

5.ActiveSheet.Paste

6.End Sub

 *Вместо "Лист2" может быть подставлено любое другое имя листа рабочей книги.

Перемещение картинок с активного листа на другой лист

1.Sub ImgMove()

2.ActiveSheet.Shapes.SelectAll

3.Selection.Cut

4.Sheets("Лист2").Select

5.ActiveSheet.Paste

6.End Sub

*Вместо "Лист2" может быть подставлено любое другое имя листа рабочей книги.