Compartilhar via

Objeto PageBackground (Publisher)

  • Artigo

Representa o plano de fundo de uma página.

Comentários

Use a propriedade Background de um objeto Page para retornar um objeto PageBackground .

Use a propriedade Exists para determinar se já existe um plano de fundo para o objeto Page especificado.

Use a propriedade Fill para retornar um objeto FillFormat.

Use o método Delete para excluir um plano de fundo para a 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, um teste é feito para verificar se já existe um plano de fundo para a página. Caso contrário, um será criado chamando o método Create 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, um teste é feito para verificar se já existe um plano de fundo para a página. Caso contrário, um será criado chamando o método Create 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 tenha um plano de fundo existente. Um erro de tempo de execução ocorre se a página não contiver um plano de fundo.

ActiveDocument.Pages(1).Background.Delete

Métodos

Propriedades

Confira também

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.