Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Удалить картинки

Автор zavik, 30.11.2023, 15:08

« назад - далее »

zavik

Добрый день.
Проблема вот какая - в файл из страницы браузера скидывают данные. их нужно обработать, отсортировать - всё это я сделал и всё работало. Но ...
На странице браузера стала появляться картинка и когда по контрл+А она тоже копируется в буфер и вставляется в страницу. Мне ее нужно удалить
Когда с этим мало работали - я выход сделал такой -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 ), очищают страницу и опять вставляют данные.
может кто нить подскажет как блин удалить эти картинки?

Serge 007

Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

zavik