Страницы: 1
RSS
Макрос удаление картинок и ссылок из книги
 
Есть макрос который должен выполнять функцию удаления данных.
Но при клике не приходит удаления.Файл с примером и кодом прилагаю.
 
Цитата
wvq65788 написал:
функцию удаления данных
Уточните задачу. Что конкретно должно быть удалено?
Согласие есть продукт при полном непротивлении сторон
 
Гиперссылки,а также изображения которые есть в книге.
 
Будут удалены ВСЕ изображение и Гиперссылки
Код
Sub DelAllShapesHyperlinks()
Dim iSh As Worksheet
For Each iSh In ThisWorkbook.Worksheets
  iSh.DrawingObjects.Delete
  iSh.Hyperlinks.Delete
Next
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Спасибо большое за совет.
Страницы: 1
Наверх