¿Cómo agregar color de fondo a los encabezados o pies de página en una hoja de Excel mientras se imprime?

Como sabemos, podemos agregar texto o imágenes al encabezado o pie de página de una hoja, los cuales se mostrarán al imprimir. Pero, ¿has intentado alguna vez agregar un color de fondo a los encabezados o pies de página? En realidad, no hay una función integrada que pueda manejarlo, pero aquí te presento algunos métodos alternativos para lograr esta operación.

Agregar color de fondo al encabezado o pie de página mediante el color de relleno

Agregar color de fondo al encabezado y pie de página mediante VBA

Agregar color de fondo al encabezado o pie de página mediante el color de relleno

1. Haz clic en Diseño de página > Configuración de página.

2. En la ventana de Configuración de página diálogo, bajo la pestaña Márgenes escribe 0 en Superior, Encabezado, Inferior y Pie de página cuadros de texto.

3. Haz clic en Aceptar. Luego selecciona la primera fila y haz clic en Inicio > Combinar y centrar.

3. Continúa seleccionando un color de la lista de Color de relleno para agregar color de fondo a las celdas combinadas.

4. Repite los pasos 2 y 3 para agregar color de fondo a la fila del pie de página que desees.

Ahora la página parece tener un color de fondo agregado al encabezado y al pie de página.

Agregar color de fondo al encabezado y pie de página mediante VBA

Aquí hay un código VBA que puede agregar rápidamente color de fondo al encabezado y pie de página al mismo tiempo.

1. Presiona Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, copia y pega el siguiente código en el nuevo módulo.

VBA: Agregar color de fondo al encabezado y pie de página

Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
    Dim I, J As Long
   Dim xRg As Range
    Dim xRow, xCol As Long
    Dim xRows, xCols As Long
    Dim xDivRow, xDivCol As Long
    Dim xTopArr, xButtArr As Variant
    Dim PageSize1, PageSize2 As Integer
    On Error Resume Next
    xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
    xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
    PageSize1 = 46
    PageSize2 = 8
    With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .BlackAndWhite = False
    End With
    Set xRg = ActiveSheet.UsedRange
    If xRg Is Nothing Then Exit Sub
    xRows = xRg(xRg.Count).Row
    xCols = xRg(xRg.Count).Column
    If xRows < 46 Then xRows = 46
    If xCol < 8 Then xCol = 8
    xDivRow = Int(xRows / PageSize1)
    xDivCol = Int(xCols / PageSize2)
    If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
    If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
    If xDivRow = 0 Then xDivRow = 1
    If xDivCol = 0 Then xDivCol = 1
    Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
    xRow = 1
    xCol = 1
    Cells.PageBreak = xlPageBreakNone
    For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
        For J = 1 To xDivCol * PageSize2 Step PageSize2
            Cells(I, J).Resize(1, PageSize2) = xTopArr
            Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
            Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Rows(I + PageSize1 + 1).PageBreak = xlManual
            Columns(J + PageSize2).PageBreak = xlManual
        Next
    Next
End Sub

3. Presiona la tecla F5 para ejecutar el código; luego, se agregará un color de fondo específico a la primera fila y a la fila 47 de cada hoja, lo que se mostrará como un encabezado y pie de página ficticios.

Nota: en el código, puedes cambiar los siguientes scripts para satisfacer tus necesidades.

1. Cambia el contenido del encabezado y pie de página según sea necesario en la cadena:

xTopArr = Array("Superior Izquierda", "", "", "Superior Centro", "", "", "", "")

xButtArr = Array("Inferior Izquierda", "", "", "Inferior Centro", "", "", "", "")

2. Cambia el índice del color de fondo en esta cadena:

Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34

Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34