如何使用delphi在excel頁頭中插入圖片？

-2

我想弄清楚如何使用delphi將圖像插入到excel頁頭中。我已經看到了如何將它變成一個正常的單元格，而不是頁眉。任何人都可以幫忙？謝謝。如何使用delphi在excel頁頭中插入圖片？

2017-03-06 Nuno

羅布感謝您的評論，但我怎麼能解決一個標題單元格呢？例如，我可以用一個陳述來解決一個正常的單元格，例如：Worksheet.Range ['a1'，'a1']。選擇但是，如何解決標題內容？我知道的唯一方法是通過PageSetup。例如： WorkSheet.PageSetup.LeftHeader：='some text'; WorkSheet.PageSetup.RightHeader：='some text'; 但在這種情況下，我僅限於文本，並且我想要插入圖像... – Nuno

@Rob我認爲他指的是頁眉，僅在打印輸出中可見。 –

是的，沒錯，我指的是頁眉。對不起，我的英語，我不是母語......謝謝湯姆。 – Nuno

當使用Excel自動化對象PageSetup時，可以管理Excel工作表頁眉和頁腳的多個屬性。

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

在這個特定問題感興趣的性質可能是由以下對之一：

PageSetup.LeftHeader PageSetup.LeftHeaderPicture

PageSetup.CenterHeader PageSetup.CenterHeaderPicture

PageSetup.RightHeader PageSetup.RightHeaderPicture

例如，你可以使用LeftHeader屬性字符串顯示簡單的文本或特殊itens如在這種情況下，你必須代碼「& G」分配給該屬性的形象展現出來的畫面。您可以使用LeftHeaderPicture.FileName屬性指定圖像文件。

到時候你也可以使用其他特殊格式化代碼如總頁數，以及其他人& d'爲當前日期「& P」的頁碼，「& N」的方式。

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

管理Excel工作表的頁眉和頁腳，當你需要顯示頁面級信息，如頁碼，總頁數等，或者是有用的，當你想顯示所有的標識或文檔標題文檔頁面。處理正常的表格單元格不會帶來相同的結果。

簡單的Delphi例子：

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;

來源

2017-03-07 15:36:56 Nuno

謝謝Nuno。我將「LeftHeaderImage」文本中的屬性名稱更正爲「LeftHeaderPicture」 –

如何使用delphi在excel頁頭中插入圖片？

回答

相關問題