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

Вход

Регистрация

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

 

= Мир MS Excel/Очистка выделенной области от объектов ( картинок ) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Очистка выделенной области от объектов ( картинок )
ilyxa1234 Дата: Среда, 15.07.2020, 16:42 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Имеется область с картинками, требуется с помощью макроса удалить объекты картинки с произвольно выделенной области. предполагалось использовать ячейку(G7) с записанным в ней искомым диапазоном в формате текста:
[vba]
Код
Public Sub DelShapes()
Dim shp As Shape, rng As Range
Set rng = Range(G7)
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row >= rng.Row And shp.TopLeftCell.Row <= rng.Row + rng.Rows.Count And shp.TopLeftCell.Column <= rng.Columns.Count Then
shp.Delete
End If
Next shp
End Sub
[/vba]
Однако не выходит, может есть методы массового удаления объектов в выделении, без использования макроса ? прошу помочь
К сообщению приложен файл: 8601161.xls (333.5 Kb)


Сообщение отредактировал ilyxa1234 - Четверг, 16.07.2020, 08:05
 
Ответить
СообщениеИмеется область с картинками, требуется с помощью макроса удалить объекты картинки с произвольно выделенной области. предполагалось использовать ячейку(G7) с записанным в ней искомым диапазоном в формате текста:
[vba]
Код
Public Sub DelShapes()
Dim shp As Shape, rng As Range
Set rng = Range(G7)
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row >= rng.Row And shp.TopLeftCell.Row <= rng.Row + rng.Rows.Count And shp.TopLeftCell.Column <= rng.Columns.Count Then
shp.Delete
End If
Next shp
End Sub
[/vba]
Однако не выходит, может есть методы массового удаления объектов в выделении, без использования макроса ? прошу помочь

Автор - ilyxa1234
Дата добавления - 15.07.2020 в 16:42
китин Дата: Четверг, 16.07.2020, 10:59 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
почитайте тут
от поста 48 и дальше. там 57 посту может вам макрос от SLAVICK пригодится


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениепочитайте тут
от поста 48 и дальше. там 57 посту может вам макрос от SLAVICK пригодится

Автор - китин
Дата добавления - 16.07.2020 в 10:59
  • Страница 1 из 1
  • 1
Поиск:

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