[djmix]

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

[Alegun]

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

[djmix]

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

[Alegun]

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

Код:

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;

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