[djmix]

Привет всем! помогите пожалуйста кодом , хочется решить данную проблему

[Alegun]

Вот пример отправки в Excel

[djmix]

Спасиб ещё раз, а как быть с моментом вставки картинок (bmp), тот же эксел.

[Alegun]

Я через буфер обмена вставлял, ShapeRange.IncrementTop/Left можно положение картинки на холсте книжной страницы изменять

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

uses Clipbrd; ... var  Excel:Variant;  pic: TPicture; begin  Excel:= CreateOleObject('Excel.Application');  Excel.Visible:=true;  Excel.Workbooks.Add(-4167);  pic:= TPicture.Create;  pic.LoadFromFile('037.bmp');  ClipBoard.Assign(pic);  Excel.ActiveSheet.Paste;  Excel.ActiveSheet.Shapes.Item(Excel.ActiveSheet.Shapes.Count).Select;// это и есть картинка  Excel.Selection.ShapeRange.IncrementLeft(Increment := 10)// в пикселях  Excel.Selection.ShapeRange.IncrementTop(Increment := 10);// -  pic.Free; end;

наверное так не правильно, но по-другому не умею