[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Удаление картинок на листе Excel
koralekДата: Воскресенье, 20.11.2011, 19:09 | Сообщение # 1
Подполковник
Группа: Администраторы
Сообщений: 147
Репутация: 0
Статус: Offline
Sub УдалениеКартинок()
For Each pic In ActiveSheet.Shapes
pic.Delete
Next pic
End Sub

Sub УдалениеКартинок_вариант2()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub
 
  • Страница 1 из 1
  • 1
Поиск: