Помогите удалить картинку

[Посетитель 30.11.2023]

Добрый день.
Проблема вот какая - в файл из страницы браузера скидывают данные. Их нужно обработать, отсортировать - всё это я сделал и всё работало. Но ...
На странице браузера стала появляться картинка и когда по контрл+А она тоже копируется в буфер и вставляется в страницу. Мне ее нужно удалить.
Когда с этим мало работали - я выход сделал такой -
Range("A1").Select

On Error Resume Next
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
If Err Then GoTo qw
Selection.Delete
qw:
On Error Resume Next
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
If Err Then GoTo we
Selection.Delete
we:
т.е. вставили первый раз - Array("Picture 1")).Select - скопировал, удалил, вставили второй - Array("Picture 2")).Select , удалил
а их вставляют по 500 раз не закрывая файл без сохранения (так бы каждый раз срабатывало Array("Picture 1")).Select ), очищают страницу и опять вставляют данные.
может кто нить подскажет как блин удалить эти картинки?

[ФАЙЛЫ ВАШИ ПОЛУЧЕНЫ - НЕТ НЕОБХОДИМОСТИ ВЫКЛАДЫВАТЬ ИХ ПОВТОРНО]

[Администратор]

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Можно так попробовать удалять все картинки, которые есть на листе.

Sub Macro()

    ActiveSheet.Shapes.SelectAll
    Selection.Delete
   
End Sub

[Посетитель 30.11.2023]

Да!!!
Спасибо !!!