VBA обратиться к массиву изображений

Пользователь

Сообщений: 302 Регистрация: 01.01.1970

23.10.2013 17:09:08

Добрый день!
Есть "массив" изображений с именами Pic1, Pic2, ... PicN. Они располагаются каждое в отдельной ячейки одного столбца. Над ними надо провести ряд действий - обрезка, изменение размера и т.п. Если бы это были значения столбца то там все просто - через Each ... Next.
А как такое же с изображениями проделать?
Заранее спасибо.

Изменено: jfd - 23.10.2013 17:37:36

The_Prist Пользователь Сообщений: 14890 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#2 23.10.2013 18:11:02 Коллекция Shapes чем не устраивает? Тот же For Each применим вполне. Или по именам: ActiveSheet.Shapes("Pic" & li) Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Все_просто

Пользователь

Сообщений: 1042 Регистрация: 10.06.2013

23.10.2013 19:59:50

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

С уважением,
Федор/Все_просто

The_Prist

Пользователь

Сообщений: 14890 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

23.10.2013 20:21:58

Через Shapes можно и при наличии других фигур. Просто определять тип объекта:

Код
For Each oObj In wsSh.Shapes If oObj.Type = 13 Then

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

jfd Пользователь Сообщений: 302 Регистрация: 01.01.1970	#5 25.10.2013 14:12:52 всем спасибо за ответы. буду тренироваться с Shapes