Выгрузка TImage в Excel

[hron66]

Доброго времени суток!
На форме есть TImage с изображением. Пытаюсь вставить в Excel: копирую изображение из TImage в буфер обмена. Затем вставляю в Excel с помощью команды PasteSpecial. В итоге на PasteSpecial все время возникает исключение EOleException с текстом:
Метод PasteSpecial из класса Worksheet завершен неверно.

Код: Выделить всё

procedure TfmMain.TestBtnClick(Sender: TObject);
var Img: TImage;    
    xla: Variant;
    xls: Variant;
begin
  Img:=TImage.Create(nil);

  xla := CreateOleObject('Excel.Application');
  xla.Workbooks.Add;
  xls := xla.Workbooks[1].WorkSheets[1];
  xls.Name := 'Sheet1';
  xla.Visible:=True;

  Clipboard.Assign(Img.Picture);
   
  xla.Cells(5,5).Select;
  xls.PasteSpecial(5,False,False,False,0,EmptyParam,EmptyParam);  

  Img.Free;
end;

Я думаю, что все дело в том, что неправильно передаются параметры в PasteSpecial. Если у кого-нибудь есть рабочий вариант, поделитесь пожалуйста. Заранее благодарен.

[DedFrend]

Попробуй Clipboard.Assign(Img.Picture.Bitmap)

[jsa]

1. В коде не видно, что бы вы что-либо вставляли в Img
2. Почему формат 5?
Вот тут https://docs.microsoft.com/ru-ru/office ... stespecial
написано, что это формат "Графический объект Microsoft Office" т.е. видимо это векторный графический примитив. А у вас Img: TImage;
Попробуйте форматы 0 или 1

[hron66]

1) Да, это просто один из вариантов кода. Я пробовал загружать изображение прямо на форму и в runtime. Изображение в Img точно есть.
2) Пробовал все форматы от 1 до 5. Ни с каким не работает.

[DedFrend]

А мое предложение попробовали? Потому что с вашим кодом у меня вообще в клипборд не попадает

[jsa]

2) Пробовал все форматы от 1 до 5. Ни с каким не работает.

Для чистоты эксперимента спрошу.
0 - PNG пробовали?

[hron66]

Пробовал BMP, JPG, PNG. Результат тот же.

[DYUMON]

может быть как то так надо ?

Код: Выделить всё

 xla.Cells(5,5).Select;
  xls.ActiveSheet.Range.PasteSpecial(5,False,False,False,0,EmptyParam,EmptyParam);