Страницы: 1
RSS
Удаление картинок из листа excel
 
Всем доброго дня!  
 
У меня следующая проблема.  
 
На экелевском листе есть куча картинок. Мне периодически их все надо удалять. Для этого я использую следующий макрос  
 
Set myDocument = ActiveSheet  
myDocument.Pictures.Select  
Selection.Delete  
 
Однако, на том же листе есть проигрыватель WMA. И он тоже удаляется при использовании данного макроса.  
 
Можно ли так сделать, чтобы проигрыватель не удалялся?  
 
Все картинки, что нужно удалить находятся в диапазоне A1:AB60000, а все проигрыватели стоят правее. Возможно, это поможет.
 
Попробуйте так  
 
Sub DeletePictures()  
Dim iShape As Shape  
   On Error Resume Next  
   For Each iShape In ActiveSheet.Shapes  
       If iShape.Name Like "Picture*" Then iShape.Delete  
   Next  
   On Error GoTo 0  
End Sub
 
Спасибо! Подошло
 
Sub УдалениеКартинок()  
   For Each pic In ActiveSheet.Shapes  
       If pic.Type = msoPicture Then pic.Delete  
   Next pic  
End Sub
 
И всего-то три года прошло... :-)
Страницы: 1
Читают тему
Наверх