Доступ к графическим объектам из ВБА

[НеВа6464]

Научите пожалуйста.
На рабочем листе вставлены рисунки.
Как получить к ним доступ из ВБА? Что это за объекты и к какой коллекции относятся?
Спасибо.

[EducatedFool]

Ответ на этот вопрос легко получить при помощи макрорекордера, включив запись макроса, и изменяя параметры рисунка.

Рисунки - элементы коллекции Shapes

Пример работы с рисунками:

Sub Макрос1()
    Dim sh As Worksheet: Set sh = ActiveSheet
    Dim Рисунок As Shape: Set Рисунок = sh.Shapes("Picture 1")
    Debug.Print sh.Shapes(1).Name    ' имя рисунка
    Рисунок.Duplicate ' создаём копию рисунка
End Sub

=============== добавлено позже ====================

У меня на сайте есть готовая программа для вставки изображений на лист Excel:
http://excelvba.ru/programmes/PastePictures

Надстройка позволяет искать в выбранной папке изображения, основываясь на содержимом ячеек таблицы Excel, и производить вставку найденных изображений в соседние ячейки (или в примечания к этим ячейкам).

Кроме того, надстройка умеет скачивать изображения по ссылкам, сохраняя загруженные изображения в заданной папке, и вставлять картинки в примечания к ячейкам.




Особенности надстройки вставки изображений:

• загрузка изображений по ссылкам (обычная гиперссылка, просто текст ссылки - URL, формула =ГИПЕРССЫЛКА(), и т.п.)
• поиск картинок в подпапках заданной папки (глубина поиска по подпапкам не ограничена)
• установка выбранного пользователем размера для вставляемых изображений
• отображение состояния поиска и вставки изображений (прогресс-бар)
• вывод результатов обработки таблицы (сколько изображений вставлено, сколько не найдено)
• добавление гиперссылок к вставляемым изображениям (по щелчку на картинке открывается исходный файл)
• 2 режима поиска файлов - по точному совпадению имени файла, и по началу имени файла-изображения
• 2 режима вставки картинок - подгонка размеров под ячейку, или соблюдение пропорций исходного изображения
• вывод количества файлов в выбранной папке
• возможность выбора столбца с названиями файлов, и указания номера столбца для вставляемых изображений
• возможность вставки изображений в комментарии к ячейкам

Запуск вставки изображений выполняется из меню программы (на панели инструментов)

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

Новый функционал будет добавляться в надстройку по мере поступления ваших пожеланий.

[НеВа6464]

Спасибо.
Я естественно в первую очередь использовал макрорекодер, но почему то макрос не записывался.
Тему можно закрыть.