Удаление прямоугольников из рабочего листа

[bvb]

Есть файл Excel. На него поверх данных выведены прямоугольники с текстом.

1. Как можно макросом удалить все прямоугольники?
2. Можно ли анализировать что находится в прямоугольнике : текст или изображение ? Т.к. помимо прямоугольников с текстом есть еще логотип с рисунком, а вот его как раз надо оставить

[EducatedFool]

да, можно
вы бы прикрепили пример файла, - чтобы форумчане не гадали, что у вас там за прямоугольники...

[IgorGO]

оно в Shapes где-то:

  Dim shp As Shape
  For Each shp In Shapes
    If shp.DrawingObject.Text = "" Then '...
    If shp.OLEFormat.Object.Text = "" Then '...
  Next

[bvb]

Миль пардон. На форуме я новичок. Исправился.

По сути дела. Удалить прямоугольники с красным текстом а верхний с картинкой Excel оставить

[ikki_pf]

Sub t()
  For Each sh In ActiveSheet.Shapes
    If sh.Type <> msoPicture Then sh.Delete
  Next
End Sub

[IgorGO]

Sub DelSomeShapes()
  Dim shp As Shape
  For Each shp In ActiveSheet.Shapes
    If shp.Type <> msoPicture Then shp.Delete
  Next
End Sub

[IgorGO]

и найдите 10 отличий)

[bvb]

Так просто !

Спасибо всем большое

[pashulka]

Можно и без цикла :

ActiveSheet.Rectangles.Delete