Работает\не работает удаление картинок

[strannick]

Добрый день, уважаемые форумчане!
Столкнулся с такой непоняткой. Формирую макросом лист с отчетом. В ячейки столбца С вставляю миникартинки под каждое наименование. Вставка идет обычным способом:

Range("C10").Select
    ActiveSheet.Pictures.Insert("D:\Изображения\image001.png").Select

Потом сформированный отчет очищаю от данных. Вставленные картинки пытаюсь удалить макросом:

Sub УдалениеКартинок()
    For Each pic In ActiveSheet.Shapes
        If pic.Type = msoPicture Then pic.Delete
    Next pic
End Sub

но картинки не удаляются. Когда же вставляю картинку в ячейку вручную через Вставка-Рисунки и запускаю потом макрос удаления, то такие картинки удаляются. В чем тогда между ними разница? Пробовал добавлять в код вставки

Selection.Locked = msoFalse

не помогает. Ситуация еще в том, что на листе есть Кнопки-картинки, которые удалять не надо естественно. И вот когда вручную вставляю картинки и удаляю их макросом, то кнопки на месте, порядок. Что можете посоветовать?
Заранее спасибо!!!

[strannick]

Вот нашел на планете такой код, который удаляет картинки в выбранном диапазоне:

Sub DeleteButton() 
Dim figa As Shape 
For Each figa In ActiveSheet.Shapes 
If Not Intersect(Range(figa.BottomRightCell.Address), Range("A10:G13")) Is Nothing Then 
figa.Delete 
End If 
Next 
End Sub

Вот он сработал. Порядок. Но в чем разница, так и не понял.

[nerv]

ActiveSheet.Pictures.Delete

?