Удалить из файла рисунок

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удалить из файла рисунок (Макросы/Sub)

zavikzavik

Дата: Четверг, 30.11.2023, 14:58 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

365

Добрый день.
Проблема вот какая - в файл из страницы браузера скидывают данные. их нужно обработать, отсортировать - всё это я сделал и всё работало. Но ...
На странице браузера стала появляться картинка и когда по контрл+А она тоже копируется в буфер и вставляется в страницу. Мне ее нужно удалить
Когда с этим мало работали - я выход сделал такой -
[vba]

Код

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:

[/vba]
т.е. вставили первый раз - Array("Picture 1")).Select - скопировал, удалил, вставили второй - Array("Picture 2")).Select , удалил
а их вставляют по 500 раз не закрывая файл без сохранения (так бы каждый раз срабатывало Array("Picture 1")).Select ), очищают страницу и опять вставляют данные.
может кто нить подскажет как блин удалить эти картинки?