PageBackground オブジェクト (Publisher)

ページの背景を表します。

注釈

PageBackground オブジェクトを取得するには、Page オブジェクトの Background プロパティを使用します。

指定した Page オブジェクトの背景が既に存在するかどうかを判断するには、Exists プロパティを使用します。

FillFormat オブジェクトを取得するのにには、 Fill プロパティを使用します。

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 オブジェクトの Fill プロパティを使用して、 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 
 

次の使用例は、アクティブ ドキュメントの 1 ページ目の背景を削除します。 この例では、指定したページに既存の背景があることを前提としています。 ページに背景が含まれていない場合、実行時エラーが発生します。

ActiveDocument.Pages(1).Background.Delete

メソッド

• Create
• Delete

プロパティ

• Application
• Exists
• Fill
• Parent

関連項目

• Publisher オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。