Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удалить из файла рисунок - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Удалить из файла рисунок
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 ), очищают страницу и опять вставляют данные.
может кто нить подскажет как блин удалить эти картинки?
К сообщению приложен файл: sortirovka.xlsm (16.8 Kb)


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

Автор - zavikzavik
Дата добавления - 30.11.2023 в 14:58
Pelena Дата: Четверг, 30.11.2023, 15:11 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19242
Репутация: 4433 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Можно так попробовать
[vba]
Код
Sub qwert()
    On Error Resume Next
    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Можно так попробовать
[vba]
Код
Sub qwert()
    On Error Resume Next
    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub
[/vba]

Автор - Pelena
Дата добавления - 30.11.2023 в 15:11
zavikzavik Дата: Четверг, 30.11.2023, 15:20 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

365
Спасибо, работает !!!


zavik
 
Ответить
СообщениеСпасибо, работает !!!

Автор - zavikzavik
Дата добавления - 30.11.2023 в 15:20
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!