delphiを使用してExcelページのヘッダーに画像を挿入するにはどうすればよいですか？

Question

私はデルファイを使用してExcelのページヘッダーに画像を挿入する方法を理解しようとしています。私はどのように私は正常な細胞にそれを行うことができますが、ページのヘッダーには見てきました。誰でも助けることができますか？ありがとう。

Answer 1

ExcelオートメーションオブジェクトPageSetupを使用すると、Excelシートページのヘッダーとフッターのいくつかのプロパティを管理することができます。

PageSetup.LeftHeader PageSetup.LeftHeaderPicture

PageSetup.CenterHeader PageSetup.CenterHeaderPicture

PageSetup.RightHeader PageSetup.RightHeaderPicture：この特定の問題への関心の特性は、以下のペアのいずれかになり

https://msdn.microsoft.com/en-us/library/office/ff196103.aspx

たとえば、LeftHeaderプロパティ文字列を使用すると、画像などの単純なテキストや特殊な画像を表示することができます。画像の場合は、このプロパティにコード「& G」を割り当てる必要があります。 LeftHeaderPicture.FileNameプロパティを使用してイメージファイルを指定できます。あなたはまた、総ページ数、およびその他のページ番号の現在の日付のための「& D」、「& P」、「& N」などの他の特別な整形コードを使用することができところで

。 Excelシートのヘッダーとフッターの管理

https://msdn.microsoft.com/en-us/library/bb225426(v=office.12).aspx

あなたはすべての中にロゴや文書のタイトルを表示したいときに、など、ページ番号、総ページ数、などのページレベルの情報を表示する必要がある場合や便利ですドキュメントページ。通常のシートセルを処理しても、同じ結果は得られません。

シンプルデルファイ例：

var Excel: Variant; 
    Sheet: OleVariant; 
    filename: String; 
... 

Excel:=CreateOleObject('Excel.application'); 
Excel.Visible:=False; 
Excel.WorkBooks.Add(-4167); 

Sheet:=Excel.ActiveSheet; 

Sheet.PageSetup.RightHeader:='my document title'; 
Sheet.PageSetup.LeftFooter:='my footer message'; 
Sheet.PageSetup.CenterFooter:='&D'; 
Sheet.PageSetup.RightFooter:='&P/&N'; 

filename:=ExtractFilePath(Application.ExeName)+'\logo.bmp'; 

if FileExists(filename) then begin 
    Sheet.PageSetup.LeftHeader:='&G'; 
    Sheet.PageSetup.LeftHeaderPicture.FileName:=filename; 
end; 

Sheet.Cells[1,1].Value:='example of page header and page footer handling of an excel sheet...'; 

Excel.Visible:=True;