Снова цикл для имен объектов...

[FeT]

В одной из тем был предложен вариант для решения проблемы типа:
For i=1 to 4
Label(Я идиот! Убейте меня, кто-нибудь!).caption
next

Но к сожалению предложенный вариант не работает для объектов размещенных на листе Excel (только для объектов на форме).

Подскажите как можно сделать то же самое но с объектами листа

FeT

[GSerg]

For i=1 to 4
Activesheet.Shapes("label " & i).DrawingObject.Caption
Next

[Вениамин]

подскажите пожалуйста , как оистить лист EXCel от множества (всех) картинок , если их имена на листе случайны. Можно ли применить обобщающие символы типа "?" ? Если задавать перебор многих значений то выдает ошибку при отсутствии картинки с таким именем.

[Krasnaja Shapka]

Код: Выделить всё

For Each myShapes in Activesheet.Shapes
...
Next myShapes

[KL]

Код: Выделить всё

For Each myShapes in Activesheet.Shapes
...
Next myShapes

или так в два хода:

Код: Выделить всё

Sub test()
    Activesheet.Shapes.SelectAll
    Selection.Delete
End Sub

[Вениамин]

Спасибо, все хаработало