Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удалить все кнопки в книге
 
#1
04.09.2018 08:11:05
Добрый день.

Пришел файл весом под 6 мегабайт, после открытия выяснилось что там много кнопок всяких. В инете поискал, нашел макрос на удаление кнопок с листа, но там листов больше 15 и в каждом запускать команду не удобно. Помогите начать работать, а то с этим мамонтом каши не сваришь.  
 
 
 
#2
04.09.2018 08:52:26
Хотя-бы пример макроса приложите. Или предлагаете заново его писать?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
04.09.2018 08:57:59
Цитата
Sanja написал:
Хотя-бы пример макроса приложите. Или предлагаете заново его писать?
Код
Sub DeleteShapes1()    'KuklP
    ActiveSheet.DrawingObjects.Delete
End Sub
Изменено: GertiyMV - 04.09.2018 08:58:14
 
 
 
#4
04.09.2018 08:59:36
Раз сам макрос имеется, просто добавьте перебор листов циклом.  
 
 
 
#5
04.09.2018 09:06:01
Код
Sub DeleteShapes1()    'KuklP
Dim sh As Worksheet
For Each sh In Worksheets
    sh.DrawingObjects.Delete
Next
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх