Как картинку из файла jpeg поместить в конкретную ячейку excel?

[cawendish]

Здравствуйте!
Подскажите, как картинку из файла jpeg поместить в конкретную ячейку excel с помощью Delphi?

В интернете полно примеров по типу:

WorkSheet := XLS.Range[XLS.Cells[2,2], XLS.Cells[2, 2]];
XLS.ActiveSheet.Pictures.Insert('1. jpg').Select;

Но здесь 2 проблемы:
1)Картинка не привязывается к ячейке.
2)Картинка исчезает на листе, если удалить файл jpeg.

[EducatedFool]

1)Картинка не привязывается к ячейке.

это несложно
надо поменять свойство Placement вставляемой картинки (присвоив значение 1, 2 или 3, - какое нужно, не помню)
вместо

XLS.ActiveSheet.Pictures.Insert('1. jpg').Select;

напишите

XLS.ActiveSheet.Pictures.Insert('1. jpg').Placement=3;

-------------------------

2)Картинка исчезает на листе, если удалить файл jpeg.

это уже сложнее, - для версии Excel от 2010 необходимо использовать другой способ вставки картинки
в Excel 2010 и новее, Pictures.Insert вставляет не картинку, а СВЯЗЬ с картинкой

здесь про это написано:
http://excelvba.ru/code/PastePictures#comment-3126

Сообщение от ExcelVBA.ru

Для Excel 2010 нужен другой способ вставки картинок, более сложный: не Pictures.Insert, а Shapes.AddPicture