Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление рисунков в книге - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление рисунков в книге (Макросы/Sub)
Удаление рисунков в книге
inohodec Дата: Среда, 09.07.2014, 18:48 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
В книге на листах, есть рисунки и данные в ячейках. Как удалить рисунки с всех листов книги, что бы данные в ячейках остались на месте. <_< Имена у рисунков изменяются и из за этого мой способ не работает. Подскажите как можно ещё удалить рисунки с листов?

[vba]
Код

     Sheets(5).Select
     ActiveSheet.Shapes.Range(Array("Picture 4")).Select
     Selection.Delete
[/vba]
 
Ответить
СообщениеВ книге на листах, есть рисунки и данные в ячейках. Как удалить рисунки с всех листов книги, что бы данные в ячейках остались на месте. <_< Имена у рисунков изменяются и из за этого мой способ не работает. Подскажите как можно ещё удалить рисунки с листов?

[vba]
Код

     Sheets(5).Select
     ActiveSheet.Shapes.Range(Array("Picture 4")).Select
     Selection.Delete
[/vba]
Автор - inohodec
Дата добавления - 09.07.2014 в 18:48
Саня Дата: Среда, 09.07.2014, 18:57 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Код
dim wks as worksheet
dim sh as shape
for each wks in worksheets
    for each sh in wks.shapes
      sh.delete
    next sh
next wks
[/vba]

удаляет все шейпы (в том числе и рисунки) со всех листов
 
Ответить
Сообщение[vba]
Код
dim wks as worksheet
dim sh as shape
for each wks in worksheets
    for each sh in wks.shapes
      sh.delete
    next sh
next wks
[/vba]

удаляет все шейпы (в том числе и рисунки) со всех листов
Автор - Саня
Дата добавления - 09.07.2014 в 18:57
ikki Дата: Среда, 09.07.2014, 19:04 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
если рисунков оч. много, лучше удалять не по одному, а скопом:[vba]
Код
Sub t()
     For Each w In Worksheets
         w.Activate: w.Shapes.SelectAll: Selection.Delete
     Next
End Sub
[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Среда, 09.07.2014, 19:05
 
Ответить
Сообщениеесли рисунков оч. много, лучше удалять не по одному, а скопом:[vba]
Код
Sub t()
     For Each w In Worksheets
         w.Activate: w.Shapes.SelectAll: Selection.Delete
     Next
End Sub
[/vba]
Автор - ikki
Дата добавления - 09.07.2014 в 19:04
inohodec Дата: Среда, 09.07.2014, 19:22 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Саня, всё классно только удаляет кнопки в книге и таблици :) может можно задать определённые листы (с и по)
 
Ответить
СообщениеСаня, всё классно только удаляет кнопки в книге и таблици :) может можно задать определённые листы (с и по)
Автор - inohodec
Дата добавления - 09.07.2014 в 19:22
inohodec Дата: Среда, 09.07.2014, 19:23 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ikki, так не получается он тогда и объединённые ячейки разъеденяет :o
 
Ответить
Сообщениеikki, так не получается он тогда и объединённые ячейки разъеденяет :o
Автор - inohodec
Дата добавления - 09.07.2014 в 19:23
_Boroda_ Дата: Среда, 09.07.2014, 19:25 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А можно и без Activate
[vba]
Код
Sub tt()
     For Each w In Worksheets
         w.DrawingObjects.Delete
     Next
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА можно и без Activate
[vba]
Код
Sub tt()
     For Each w In Worksheets
         w.DrawingObjects.Delete
     Next
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 09.07.2014 в 19:25
inohodec Дата: Среда, 09.07.2014, 19:33 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Тоже всё классно, но скажи как сделать так чтоб макрос обходил Sheets(3) у меня там куча графиков и кнопок :)
 
Ответить
Сообщение_Boroda_, Тоже всё классно, но скажи как сделать так чтоб макрос обходил Sheets(3) у меня там куча графиков и кнопок :)
Автор - inohodec
Дата добавления - 09.07.2014 в 19:33
_Boroda_ Дата: Среда, 09.07.2014, 19:38 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так можно
[vba]
Код
Sub tt()
       For Each w In Worksheets
           If w.Index <> 3 Then
               w.DrawingObjects.Delete
           End If
       Next
End Sub
[/vba]
Или вместо w.Index <> 3 пишем w.Name <> "ИмяЛиста"

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак можно
[vba]
Код
Sub tt()
       For Each w In Worksheets
           If w.Index <> 3 Then
               w.DrawingObjects.Delete
           End If
       Next
End Sub
[/vba]
Или вместо w.Index <> 3 пишем w.Name <> "ИмяЛиста"
Автор - _Boroda_
Дата добавления - 09.07.2014 в 19:38
inohodec Дата: Среда, 09.07.2014, 19:51 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Спасибо за помощь, если бы не ты я б ещё долго с этим макросом мчался:hands:Тема закрыта !!!
 
Ответить
Сообщение_Boroda_, Спасибо за помощь, если бы не ты я б ещё долго с этим макросом мчался:hands:Тема закрыта !!!
Автор - inohodec
Дата добавления - 09.07.2014 в 19:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление рисунков в книге (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!