Способ добавления изображения з ImageList в ячейку

Павел Пользователь Сообщений: 580 Регистрация: 25.12.2012	#1 12.09.2013 15:11:25 Добрый день, коллеги! Подскажите, пожалуйста, кусочек кода, как Me.ImageList1.ListImages(Range("D9" .Value & ".jpg" .Picture перебросить в ячейку? Заранее благодарен.

EducatedFool

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

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

12.09.2013 15:22:35

Код сложный получится (если я не ошибаюсь, картинки в ImageList хранятся в виде объектов IPictureDisp, которые так просто ни в файл не сохранить, ни на лист не вставить)

А разве исходные картинки у вас отсутствуют в виде файлов?
Было бы намного проще из файлов вставлять на лист.

PS: Можно сохранить картинки в файле Excel в виде VBA функций или в виде вложений.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Павел Пользователь Сообщений: 580 Регистрация: 25.12.2012	#3 12.09.2013 15:29:57 насчет функции не знал. Спасибо за подсказку. Если юзать функцию, и допустим файл откроют на другом компе, фотки останутся или слетят?

Павел Пользователь Сообщений: 580 Регистрация: 25.12.2012	#4 12.09.2013 15:31:43 Забыл добавить. Фотки хранятся на винте файлами. Из файлов, думаю, смогу сообразить как подставить. Сейчас попробую. Спасибо за наводку и полезные ссылочки.

Читают тему