Objeto PageBackground (Publisher)

Representa el fondo de una página.

Observaciones

Utilice la propiedad Background de un objeto Page para devolver un objeto PageBackground .

Utilice la propiedad Exists para determinar si ya existe un fondo para el objeto Page especificado.

Utilice la propiedad Fill para devolver un objeto FillFormat.

Use el método Delete para eliminar un fondo de la página especificada.

Ejemplo

En el ejemplo siguiente se crea un objeto PageBackground y se establece en el fondo de la primera página del documento activo.

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

En el siguiente ejemplo se basa en el ejemplo anterior. En primer lugar un objeto PageBackground y se establece como fondo de la primera página del documento activo. A continuación, se realiza una prueba para comprobar si ya existe un fondo para la página. Si no es así, se crea una llamando al método Create del objeto PageBackground .

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

En el siguiente ejemplo se basa en el ejemplo anterior. En primer lugar un objeto PageBackground y se establece como fondo de la primera página del documento activo. A continuación, se realiza una prueba para comprobar si ya existe un fondo para la página. Si no es así, se crea una llamando al método Create del objeto PageBackground . Un objeto FillFormat se devuelve mediante la propiedad Fill del objeto PageBackground. A continuación, se establecen algunas de las propiedades del objeto FillFormat disponibles.

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 
 

En el siguiente ejemplo se elimina el fondo de la primera página del documento activo. En este ejemplo se supone que la página especificada tiene un fondo existente. Se produce un error en tiempo de ejecución si la página no contiene un fondo.

ActiveDocument.Pages(1).Background.Delete

Métodos

• Create
• Delete

Propiedades

• Application
• Exists
• Fill
• Parent

Vea también

• Referencia del modelo de objetos de Publisher

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.