PageBackground 物件 (Publisher)

代表頁面的背景。

註解

使用Page物件的Background屬性可傳回PageBackground物件。

使用 Exists 屬性來判斷指定 之 Page 物件的背景是否已經存在。

使用 Fill 屬性可傳回 FillFormat 物件。

使用 Delete 方法可刪除指定頁面的背景。

範例

下列範例會建立 PageBackground 物件，並將其設定為使用中文件的第一頁的背景。

Dim objPageBackground As PageBackground 
Set objPageBackground = ActiveDocument.Pages(1).Background 
 

下列範例會建立在前一個範例。 先 PageBackground 物件建立及設定為使用中文件的第一頁的背景。 接下來，進行測試以檢查頁面的背景是否已經存在。 如果沒有，則呼叫PageBackground物件的Create方法來建立一個。

Dim objPageBackground As PageBackground 
Set objPageBackground = ActiveDocument.Pages(1).Background 
If objPageBackground.Exists = False Then 
 objPageBackground.Create 
End If 
 

下列範例會建立在前一個範例。 先 PageBackground 物件建立及設定為使用中文件的第一頁的背景。 接下來，進行測試以檢查頁面的背景是否已經存在。 如果沒有，則呼叫PageBackground物件的Create方法來建立一個。 使用 PageBackground 物件的 填滿 屬性會傳回 FillFormat 物件。 然後設定是一些可用之 FillFormat 物件的屬性。

Dim objPageBackground As PageBackground 
Dim objFillFormat As FillFormat 
 
Set objPageBackground = ActiveDocument.Pages(1).Background 
If objPageBackground.Exists = False Then 
 objPageBackground.Create 
End If 
 
Set objFillFormat = objPageBackground.Fill 
With objFillFormat 
 .BackColor.RGB = RGB(Red:=0, GReen:=155, Blue:=99) 
 .ForeColor.RGB = RGB(Red:=155, GReen:=234, Blue:=0) 
 .TwoColorGradient msoGradientDiagonalDown, 4 
End With 
 

下列範例會刪除使用中檔內第一頁的背景。 本範例假設指定的頁面具有現有的背景。 如果頁面不包含背景，就會發生執行階段錯誤。

ActiveDocument.Pages(1).Background.Delete

方法

• Create
• Delete

屬性

• Application
• 存在
• Fill
• Parent

另請參閱

• Publisher 物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。