Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
VBA обратиться к массиву изображений
 
Добрый день!
Есть "массив" изображений с именами Pic1, Pic2, ... PicN. Они располагаются каждое в отдельной ячейки одного столбца. Над ними надо провести ряд действий - обрезка, изменение размера и т.п. Если бы это были значения столбца то там все просто - через Each ... Next.
А как такое же с изображениями проделать?
Заранее спасибо.
Изменено: jfd - 23 Окт 2013 17:37:36
 
Коллекция Shapes чем не устраивает? Тот же For Each применим вполне.
Или по именам: ActiveSheet.Shapes("Pic" & li)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
А как понять массив изображений с именами?
Если на листе нет никаких фигур типа прямоугольников, стрелок (то есть все, что можно, например, найти в меню вставка-автофигуры), то можно спокойно, как сказал Прист, провернуть операции через коллекцию shapes. На худой конец можно задекларировать создание новой коллекции, куда потом в виде элементов запихнуть элементы массива изображений.
С уважением,
Федор/Все_просто
 
Через Shapes можно и при наличии других фигур. Просто определять тип объекта:
Код
For Each oObj In wsSh.Shapes
      If oObj.Type = 13 Then
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
всем спасибо за ответы. буду тренироваться с Shapes
Страницы: 1
Читают тему (гостей: 1)
Наверх