Макрос по избирательному удалению картинок

[Скрипт]

Aegi, напишите размеры ваших рисунков в пунктах на Форуме, я внесу изменения в код, чтобы не было ошибок из-за работы с дробными числами.

[mr-111]

Здравстуйте,
есть макрос для удаления рисунков с листа

Sub DeletePictures()
     Sheets("табл").Select
   
For Each pic In ActiveSheet.Shapes
 
If pic.Type = msoPicture Then pic.Delete
 
Next pic
 
End Sub

А как в этот макрос вставить условие удаления рисунков только с заданного диапазона, н-р А2:R15.. ?Т.е. не трогая верхнюю строчку.

[IgorGO]

if pic.top > [a2].top and pic.Type = msoPicture Then pic.Delete

[mr-111]

Работает!
Спасибо!