Объект PageBackground (издатель)

Представляет фон страницы.

Замечания

Используйте свойство Background объекта Page , чтобы вернуть объект PageBackground .

Используйте свойство Exists , чтобы определить, существует ли фон для указанного объекта Page .

Используйте свойство Fill для возврата объекта FillFormat .

Используйте метод Delete , чтобы удалить фон для указанной страницы.

Пример

В следующем примере создается объект PageBackground и устанавливается в фоновом режиме первой страницы активного документа.

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

Следующий пример основан на предыдущем примере. Сначала создается объект PageBackground и устанавливается фон первой страницы активного документа. Затем выполняется тест, чтобы проверить, существует ли фон для страницы. Если нет, он создается путем вызова метода Create объекта PageBackground .

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

Следующий пример основан на предыдущем примере. Сначала создается объект PageBackground и устанавливается фон первой страницы активного документа. Затем выполняется тест, чтобы проверить, существует ли фон для страницы. Если нет, он создается путем вызова метода Create объекта PageBackground . Объект FillFormat возвращается с помощью свойства Fill объекта PageBackground . Затем задается несколько доступных свойств объекта 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
• Exists
• Fill
• Parent

См. также

• Справочник по объектной модели издателя

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.