Удаление рисунков в книге
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
Ответить
Сообщение В книге на листах, есть рисунки и данные в ячейках. Как удалить рисунки с всех листов книги, что бы данные в ячейках остались на месте. Имена у рисунков изменяются и из за этого мой способ не работает. Подскажите как можно ещё удалить рисунки с листов? [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] удаляет все шейпы (в том числе и рисунки) со всех листов Саня
Ответить
Сообщение [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]
если рисунков оч. много, лучше удалять не по одному, а скопом:[vba]Код
Sub t() For Each w In Worksheets w.Activate: w.Shapes.SelectAll: Selection.Delete Next End Sub
[/vba] ikki
помощь по 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
Ответить
Сообщение Саня, всё классно только удаляет кнопки в книге и таблици может можно задать определённые листы (с и по) Автор - inohodec Дата добавления - 09.07.2014 в 19:22
inohodec
Дата: Среда, 09.07.2014, 19:23 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
ikki, так не получается он тогда и объединённые ячейки разъеденяет
ikki, так не получается он тогда и объединённые ячейки разъеденяет inohodec
Ответить
Сообщение ikki, так не получается он тогда и объединённые ячейки разъеденяет Автор - 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]
А можно и без Activate [vba]Код
Sub tt() For Each w In Worksheets w.DrawingObjects.Delete Next End Sub
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Ответить
Сообщение _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 <> "ИмяЛиста"
Так можно [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_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Ответить
Сообщение _Boroda_, Спасибо за помощь, если бы не ты я б ещё долго с этим макросом мчался:hands:Тема закрыта !!! Автор - inohodec Дата добавления - 09.07.2014 в 19:51