Garafutdin
Дата: 08.06.2009 14:36:51
Помогите пожалуйста как вставить рисунок в колонтитул в Excel
В Word вставляется так:
WordApplication1.ConnectKind:=ckNewInstance;
WordApplication1.AutoQuit:=true;
WordApplication1.AutoConnect:=true;
f:=path;
WordDocument1.ConnectTo(WordApplication1.Documents.Open(f,EmptyParam,EmptyParam,EmptyParam ,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam
,EmptyParam,EmptyParam));
WordApplication1.ActiveWindow.ActivePane.View.SeekView:= wdSeekCurrentPageHeader;
Q:='select id,pict from Pictures where typ = 1';
Dm.ads.Active:=false;
Dm.ads.CommandText:=Q;
Dm.ads.Active:=true;
f:=ExtractFilePath(Application.ExeName)+'Documents\mtv.jpg';
TBlobField(Dm.ads.FieldByName('pict')).SaveToFile(f);
WordApplication1.Selection.InlineShapes.AddPicture(f,EmptyParam,EmptyParam,EmptyParam);
WordApplication1.ActiveWindow.ActivePane.View.SeekView:=wdSeekMainDocument;
WordDocument1.Save;
WordDocument1.Disconnect;
WordApplication1.ActiveDocument.Save;
WordApplication1.Disconnect;
В колонитул Excel знаю только как вставить текст, а можно ли вставить в колонтитул картинку?