Загрузка картинки в Label из ячейки

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

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

05.06.2020 18:01:51

Уважаемые эксперты, нужна ваша помощь. Как мне загрузить картинку которая находится в ячейке в элемент формы Label

Код
Label1.Picture = LoadPicture(pic)

pic - требует путь к файлу. Как получить его у картинки, которая в ячейке А1? Спасибо

Прикрепленные файлы

Книга1.xlsx (65.75 КБ)

ALEXEY GORBUNOV Пользователь Сообщений: 5 Регистрация: 05.06.2020	#2 08.06.2020 10:17:13 Совсем никак? Подскажите в каком направлении искать?

Андрей VG

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

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

Excel 2016, 365

08.06.2020 10:26:33

Доброе время суток

Цитата
ALEXEY GORBUNOV написал: Подскажите в каком направлении искать?

Либо хранить растры, например внутри книги, и вытаскивать во временную папку с последующей загрузкой в Label. Либо делать экспорт картинки в растровый файл и грузить растр в Label. Ну, ещё можете попробовать через WinAPI найти структуру растра Shape в памяти и использовать его, преобразовав в IPictureDisp, но пока не встречал ни у кого такого варианта.

ALEXEY GORBUNOV Пользователь Сообщений: 5 Регистрация: 05.06.2020	#4 08.06.2020 10:30:12 Андрей VG, Спасибо за ответ, буду искать решение

Андрей VG

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

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

Excel 2016, 365

08.06.2020 10:49:19

Пропустил ещё один вариант. Если хранить растр в ActiveX Image, то можно его вытаскивать (не проверял)

Код
ActiveSheet.Shapes("MyActiveXImage").OLEFormat.Object.Object.Picture

ALEXEY GORBUNOV Пользователь Сообщений: 5 Регистрация: 05.06.2020	#6 08.06.2020 11:07:44 Андрей VG,Спасибо Вам Андрей. Второй вариант мне идеально подходит