Как удалить подпись с нескольких листов одновременно?

[АННА-ЕАО]

Здравствуйте. Помогите, пожалуйста, с решением проблемы. Как удалить подпись с нескольких листов одновременно. Если пойти простым способом, а именно выделить все листы, то выделение объектов становится не активным, а удаление строк ничего не дает. Мне нужно удалить только среднюю подпись. Как это сделать?

[Hugo121]

Тема рядом должна помочь:

http://www.programmersforum.ru/showthread.php?t=164896

[АННА-ЕАО]

Hugo121 тему читала, даже хотела в ней свой вопрос задать, но решила создать отдельную тему.

Объясняю почему. Когда я выделяю все листы и в какой-то ячейки что-то меняю, (записываю, удаляю и т.д.) это все работает. Мне надо удалить не ячейку, (диапазон, строку и т.д.), а объект. При выделении всех листов выделить объекты нет возможности так как данная функция становится не активна. Если удалить строку то объект - подпись не удаляется, а смещается.
Посмотрите файл может я не совсем понятно объясняю.

[Казанский]

Если объект имеет одинаковое имя на всех листах, то очень просто:

for each s in sheets:s.shapes("Группа 21").delete:next

[Hugo121]

Да, я не заметил, что это объект, не кликал по нему
Т.е. нужно удалить "Группа 21" на всех листах, кроме первого - там "Группа 30"?

[Казанский]

Вот так - средний объект из трех, независимо от названия и нумерации:

Sub bb()
Dim s, a, b, c
For Each s In Worksheets
    c = 1
    For Each a In s.Shapes
        For Each b In s.Shapes
            If Not b Is a Then c = c * (b.Top - a.Top)
        Next
        If c < 0 Then a.Delete: Exit For
    Next
Next
End Sub

[Hugo121]

В данном частном случае сработало и так:

Sub tt()
Dim s
For Each s In Worksheets
    s.Shapes(s.Shapes.Count).Delete
Next
End Sub

[АННА-ЕАО]

Казанский Ваш код работает идеально! Спасибо!

Hugo121 Спасибо, но Ваш код удаляет не среднюю подпись, а последюю. Но мне этот вариант тоже обязательно пригодится.

[Hugo121]

Не знаю - в Вашем примере на моём компьютере последняя подпись стоит посередине

[АННА-ЕАО]

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

на моём компьютере последняя подпись стоит посередине

Не знаю, не знаю...

Думаю это потому, что я код проверяла не на файле-примере (там он действительно работает верно (сейчас проверила )), а на моём огромном файле.
Не знаю почему, но в другом файле удаляются последнии подписи.