Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Удалить все кнопки в книге
 
Добрый день.

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