Убрать (Border) рамку у ВСЕХ объектов на листе

[VictorM]

Здравствуйте, Уважаемые!
Есть такая задача:
выделить, показать при наведении курсора (MouseMove), (Border) рамку объекта Элементы управления - Image на листе.
Собственно, все сработало. Но таких объектов на листе будет около 30-ти и вот как убрать (Border) рамку у ВСЕХ объектов на листе, перед тем, как показать под курсором - у меня ну никак не получается.
Смотрел темы на форуме, многое пробовал. Выделить, скрыть, удалить все объекты получается, а вот с бордюром - никак.
Подскажите, пожалуйста, что можно сделать.
Спасибо.
p.s. Не спрашивайте, на кой... оно мне надо. Так хочет Большой БОСС

[EducatedFool]

Если делать без цикла - не знаю как (ничего на ум не пришло)

Если перебирать в цикле - то всё просто:

Sub test()
    On Error Resume Next
    Dim sha As Shape, im As Image
    For Each sha In ActiveSheet.Shapes
        Set im = sha.OLEFormat.Object.Object
        im.BorderStyle = fmBorderStyleNone
    Next sha
End Sub

то же самое, но короче:

Sub test()
    On Error Resume Next
    Dim sha As Shape
    For Each sha In ActiveSheet.Shapes
        sha.OLEFormat.Object.Object.BorderStyle = fmBorderStyleNone
    Next sha
End Sub

[VictorM]

EducatedFool, супер!
Спасибо, все отлично сработало!