Всавка из TImage в Excel или Word

[nevo]

Нужно чтоб рисунок из TImage вставлялся в Excel или Word. Помогите плз, я чет недоганяю.

[_Dmitry]

Вставляйте через буфер обмена.

ClipBoard.Assign(Image1.Picture);
WordApplication1.Selection.Paste;

и не забудьте uses ClipBrd;

[nevo]

в Word получается, а с Excel ступор

[_Dmitry]

uses ComObj, OleServer, ClipBrd;
..........
var
  E: OleVariant;
..........
  E:=CreateOleObject('Excel.Application');
  E.WorkBooks.Add;
  E.Visible:=true;
  ClipBoard.Assign(Image1.Picture);
  E.ActiveSheet.Paste;

[yaver]

как вставить рисунок в документ Word с заданием формата положения (в тексте; относительно верхнего левого угла листа 0,0)?

[mihali4]

Вот вам немного инструкций:
Вложение 5853

[yaver]

немного покапавшись получилось с таким кодом:

Word_1.ActiveDocument.Shapes.AddPic ture(filename_k, False, True);
Pic_1:=Word_1.ActiveDocument.Shapes .Item(1);

Pic_1.PictureFormat.Brightness:=0.4 5;
Pic_1.PictureFormat.Contrast:=0.65;

Pic_1.RelativeHorizontalPosition:=w dRelativeHorizontalPositionPage;
Pic_1.RelativeVerticalPosition:=wdR elativeVerticalPositionPage;
Pic_1.Left:=0;
Pic_1.Top:=0;
Pic_1.Height:=595.3;
Pic_1.Width:=841.9;

Pic_1.WrapFormat.Type:=3;
Pic_1.ZOrder(5);