Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление рисунков в выделенном диапазоне
 
#1
11.10.2018 11:03:54
Добрый день!
Необходимо удалить рисунки в выделенном диапазоне.
Рисунки находятся один на одном, и их очень много. Вручную удалять слишком долго.
Функция "выделить все объекты" не подходит, так как в оставшейся части документа тоже есть рисунки, которые необходимо оставить.
Подскажите, как можно решить такую проблему?
 
 
 
#2
11.10.2018 11:15:52
Макросом. Определяете TopLeft и BottomRight координаты выделенных ячеек. Цикл по граф. объектам. Если, например, TopLeft  координаты объекта входят в выделенную область - удалить.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
11.10.2018 11:32:11
JayBhagavan, а без макроса возможно сделать? я просто не знаю как их писать.
 
 
 
#4
11.10.2018 11:38:51
sdens2009, без макроса я не знаю, как удалить/выделить граф. объекты, которые попадают в выделенную область ячеек.
Если не умеете, то ничего страшного. Есть несколько выходов:
- научиться;
- заказать;
- дождаться волонтёра;
- поискать на просторах интернета уже готовый макрос.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
11.10.2018 11:42:53
JayBhagavan, спасибо. Нашел макрос, если кому-то пригодится, то вот
Код
Sub t()   
Dim x, dic   
Set dic = CreateObject("scripting.dictionary")   
For Each x In ActiveSheet.DrawingObjects.ShapeRange   
   If Not Intersect(Selection, x.TopLeftCell) Is Nothing Then   
       dic.Add x.Name, x   
   End If   
Next   
ActiveSheet.Shapes.Range(dic.keys).Select   
Set dic = Nothing   
End Sub
 
 
 
Страницы: 1
Наверх