Excel + рисунок в колонтитул

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 знаю только как вставить текст, а можно ли вставить в колонтитул картинку?
Граур Станислав
Дата: 08.06.2009 14:46:42
Поставить в excel макрос на запись.

Вставить вручную рисунок в колонитул.
Поглядеть чего нагенерилось в макросе.

Доработать напильником/глянуть доку.
Garafutdin
Дата: 08.06.2009 15:16:21
Объясните пожалуйста на примере
Про макросы я слышал но писать их и обращаться к ним не разу не пробовал