На форме есть 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. Если у кого-нибудь есть рабочий вариант, поделитесь пожалуйста. Заранее благодарен.