Страницы: 1
RSS
Удалить все картинки с листа (только изображения)
 
Добрый день, проблема - нужно создать макрос, который удалял бы все картинки с листа, а сам макрос закреплен за кнопкой на листе,
серфил форум наткнулся на тему
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=23014
Данный макрос удаляет все картинки, но и саму кнопку, а кнопка желательно чтобы осталась на листе.
Решил проблему тем, что после удаления картинок заново добавлять кнопку. Это единственное решение? или можно как то упростить
 
может быть сделать кнопку на панели быстрого доступа или к макросу прилепить сочетание клавиш. так же можно добавить свой пункт в меню ПКМ (тоже вариант)
Изменено: alexthegreat - 03.03.2014 15:17:13
 
Код
Sub Delete_Pic()
For Each pic In ActiveSheet.Shapes
If pic.Type = msoPicture Then pic.Delete
Next pic
End Sub 
 
См. макрос.
 
У меня все картинки в формате *.gif
видно в коде что-то надо изменить, потому что в предложенном варианте не удаляет
Наверно после Pic.type= другое значение надо
Изменено: bigfatman90 - 18.03.2014 16:02:15
Страницы: 1
Читают тему
Наверх