Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как удалить автофигуры в определенном диапазоне
 
#1
26.11.2016 15:59:49
Вечер добрый. Подскажите - как решить проблему.
Есть макрос, который удаляет все автофигуры с листа.
Как заставить его удалять автофигуры - в строго заданном диапазоне (например только столбцы E:L ?
 
 
 
#2
26.11.2016 16:03:53
Цитата
visors16 написал: удалять автофигуры - в строго заданном диапазоне
Если НЕКОТОРЫЕ границы автофигуры выходят за границы диапазона что делаем с ней?
Изменено: Sanja - 26.11.2016 16:04:13
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
26.11.2016 16:05:33
Код
?
1
2
3
4
5
6
7
8
9
10
Sub Удалить_фигуры()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If Not Intersect(ActiveSheet.Shapes(i).TopLeftCell, Columns("E:L")) Is Nothing Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
 
 
 
#4
26.11.2016 16:07:28
Цитата
Sanja написал: Если НЕКОТОРЫЕ границы автофигуры выходят за границы диапазона что делаем с ней?
Если выходят - то пускай остаются на листе.
 
 
 
#5
26.11.2016 16:08:13
Karataev, ого, Круто.
Как раз такого эффекта я и хотел.
Спасибо за помощь.
 
 
 
#6
26.11.2016 16:19:58
Цитата
Sanja написал:
Если НЕКОТОРЫЕ границы автофигуры выходят за границы диапазона
А с этим как быть?
 
 
 
#7
26.11.2016 18:43:38
Можно еще проверку на правый нижний угол добавить
Код
?
1
2
3
4
5
6
7
8
9
10
11
Sub Удалить_фигуры()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If Not Intersect(ActiveSheet.Shapes(i).TopLeftCell, Columns("E:L")) Is Nothing And _
            Not Intersect(ActiveSheet.Shapes(i).BottomRightCell, Columns("E:L")) Is Nothing Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
26.11.2016 19:17:38
Цитата
Sanja написал:
Можно еще проверку на правый нижний угол добавить
А если фигура пересекает все указанные столбцы и её края за пределами диапазона? ))
 
 
 
#9
26.11.2016 19:22:34
Юрий М, дальше сами  :)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
26.11.2016 19:32:21
Да это я к тому, что автор не читает НАШИ вопросы ((
 
 
 
#11
26.11.2016 19:35:02
Это да...не читает...и не пишет...совсем забыл... :cry:
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Читают тему
Loading...