Objeto PageBackground (Publisher)

Representa o plano de fundo de uma página.

Comentários

Utilize a propriedade Fundo de um objeto Página para devolver um objeto PageBackground .

Utilize a propriedade Existe para determinar se já existe um fundo para o objeto Página especificado.

Use a propriedade Fill para retornar um objeto FillFormat.

Utilize o método Delete para eliminar um fundo da página especificada.

Exemplo

O exemplo a seguir cria um objeto PageBackground e o configura para o plano de fundo da primeira página do documento ativo.

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

O exemplo a seguir se baseia no exemplo anterior. Primeiro um objeto PageBackground é criado e definido como o plano de fundo da primeira página do documento ativo. Em seguida, é feito um teste para marcar se já existir um fundo para a página. Caso contrário, é criado um ao chamar o método Criar do objeto PageBackground .

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

O exemplo a seguir se baseia no exemplo anterior. Primeiro um objeto PageBackground é criado e definido como o plano de fundo da primeira página do documento ativo. Em seguida, é feito um teste para marcar se já existir um fundo para a página. Caso contrário, é criado um ao chamar o método Criar do objeto PageBackground . Um objeto FillFormat é retornado usando a propriedade Fill do objeto PageBackground. Algumas das propriedades do objeto FillFormat disponíveis são então definidas.

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 
 

O exemplo a seguir exclui o plano de fundo da primeira página do documento ativo. Este exemplo pressupõe que a página especificada tem um fundo existente. Ocorre um erro de tempo de execução se a página não contiver um fundo.

ActiveDocument.Pages(1).Background.Delete

Métodos

• Create
• Delete

Propriedades

• Application
• Existe
• Fill
• Parent

Confira também

• Referência do Modelo de Objeto do Publisher

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.