Удаление объектов на листе

[edikamn]

Здравствуйте.
excel 2003.
На листе имеется много надписей (Texbox объект) из мени рисование, и кнопки (Botton объект) из панели формы.
Как написать макрос, чтобы удалялись все надписи, но при этом кнопки оставались.
Я пробовал sared.selecall потом delete. При этом удаляетя все и кнопки и надписи.
Как быть??????????

[аналитика]

файл с небольшим числом подопытных давай...

[The_Prist]

Идите циклом по объектам и проверяйте их тип. Все, что не кнопка(или все, что TextBox) удаляете, остальное не трогаете...

Вот для размышления:

Dim oSh As Shape
For Each oSh In ActiveSheet.Shapes
Debug.Print oSh.FormControlType; oSh.Name
if oSh.FormControlType = 5 then oSh.Delete
Next oSh

0 - Кнопки
5 - Надписи

[edikamn]

Вот к примеру на листе1 есть надписи и кнопки, удалить нужно только надписи.

[doober]

Private Sub CommandButton1_Click()
Dim oSh As Shape
For Each oSh In ActiveSheet.Shapes
If oSh.Type = 17 Then oSh.Delete
Next oSh
End Sub

[The_Prist]

Сообщение от edikamn

Вот к примеру на листе1 есть надписи и кнопки, удалить нужно только надписи.

Т.е. самому трудно было через мой макрос выявить тип объектов для удаления?

[edikamn]

Всем спасибо!!!!!

Я просто хотел увидеть другие решения.

Я не сильно разбираюсь в VBA. Я только начинающий.
Может кто посоветует книжку какую-нибудь, которая не очень сложная для начинаючих.