Обращение к объектам Picture на листе по индексу в цикле

[liding]

Вечер или день, не знаю, добрый.

Подскажите кто знает. Имеется лист, на нем просто
лежат элементы Picture. Никаких форм.
Выглядит это так Image1, Image2, Image3 .... Image30
Для иницилизации приходится выполнять операцию

.Image1.Picture = LoadPicture(FileNames(1))
.Image2.Picture = LoadPicture(FileNames(2))
...
...
итд...
.Image30.Picture = LoadPicture(FileNames(30))

для каждого элемента собственно своя строчка.
Хотелось бы сделать это в цикле, обращаясь к объектам
Picture по индексу или как-нибудь по другому не важно, чтоб
это выглядело примерно так:

        For x = 1 To 30
           .Image(x).Picture = LoadPicture(FileNames(x))
        Next

Может есть возможность получить ссылку на переменную Image"X",
сформировав ее имя из строки, может функции есть специальные какие...

Помогите пожалуста,
Спасибо

[Алексей++]

напрашивается массив указателей на Image (или ссылок, что там в бейсике)

[RXL]

Collection там есть.

[HandKot]

а если всем Image присвоить одно и тоже имя и вытавить сво-во index по порядку, то можно обращатся как к массиву

.MyImage(i).Picture = LoadPicture(FileNames(i))

[liding]

Попробую немного конкретезиторавть происходящее:

Когда на лист ложиться элемент. В данном случае типа Picture, то он имеет какоето имя.
Imege1, Image2 итп....  И проблема в том, что я незнаю другого способа обратиться к ним как только по имени на прямую. Поэтому перебрать их в цикле не могу. Присвоить одинаковые имена элементам нельзя. Excel это не позволяет.

Нужно найти какой-то альтернативный способ получить ссылки на эти элементы,
которые позволили бы обращяться к картинкам в цикле используя обычный перебор.

Я знаю что есть коллекции, и тому подобные структуры, но это опять же другой элемент,
требующий дополнительной связки и лишней писанины, не дающей выигрыша.

Путь к решению это вероятьней всего, как упомянул Алексей1153++, ссылки относительно
обекта листа Worksheets.....

Я не знаю, может у Worksheets есть Collection, автоматически ссылающиеся на элементы
листа, как сказал RXL, я не знаю как с этим работыть. Подсажите...

[HandKot]

выложите файл примера

[HandKot]

попробуйте так

Код:

ActiveSheet.OLEObjects("Image" + Str(i)).Object = LoadPicture(...

[liding]

попробуйте так

Код:

ActiveSheet.OLEObjects("Image" + Str(i)).Object = LoadPicture(...

Что сказать, ....
           Моей благодарности нет предела....
           Большое спасибо. Это то что нано.
           Думаю это будет интересно не только мне!

[HandKot]

вот еще интересная весчь
получить св-во left объекта по имени

Код:

CallByName(ThisWorkbook.Worksheets(1).OLEObjects("Image" + Str(i)), "Left", VbGet)

главное в именах не запутаться и не ошибаться

[liding]

вот еще интересная весчь
получить св-во left объекта по имени

Код:

CallByName(ThisWorkbook.Worksheets(1).OLEObjects("Image" + Str(i)), "Left", VbGet)

главное в именах не запутаться и не ошибаться

Да, век живи век учись. Я так глубоко раньше не зарывался. Спасибо за поддерку.
У меня еще тут наклевывается вопрос. Позже свормулирую...

[Naghual]

Правильнее будет обращаться к ним через коллекцию Shapes. Только проверить равен ли его Type = msoPicture.

[HandKot]

согласен, но смотря как добавлена картинка
если не ошибаюсь, то она не всегда в shape дает доступ