¿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 contenido o imagen al encabezado o pie de página de una hoja, que se mostrará durante la impresión. Pero, ¿alguna vez ha intentado agregar color de fondo a los encabezados o pies de página? En realidad, no hay una función incorporada que pueda manejarlo, pero aquí presento algunas formas indirectas de lograr la operación.
Agregue color de fondo al encabezado o pie de página por color de relleno
Agregue color de fondo al encabezado y pie de página por VBA
Agregue color de fondo al encabezado o pie de página por color de relleno
1. Hacer clic en Diseño de página > Configurar página.
2. En el Configurar página diálogo, bajo Márgenes pestaña, tipo 0 dentro Notable , Encabezamiento, Fondo y Pie de página cajas de texto.
3. Hacer clic en OK. Luego seleccione la primera fila y haga clic en Inicio > Fusionar y centrar.
3. Continúe para seleccionar un color de Llenar color lista para agregar color de fondo a las celdas combinadas.
4. Repita los pasos 2 y 3 para agregar color de fondo a la fila de pie de página que desee.
Ahora la página parece agregar color de fondo al encabezado y al pie de página.
Agregue color de fondo al encabezado y pie de página por VBA
Aquí hay un código VBA que puede agregar rápidamente color de fondo al encabezado y al pie de página al mismo tiempo.
1. Prensa Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo, copie y pegue el código siguiente en el nuevo módulo.
VBA: agregue 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. Prensa F5 para ejecutar el código, luego se ha agregado cierto color de fondo a la primera fila y la fila 47 de cada hoja, que se mostrará como encabezado y pie de página falsos.
Nota: en el código, puede cambiar los siguientes scripts para satisfacer sus necesidades.
1. Cambie el contenido del encabezado y pie de página según lo necesite en la cadena:
xTopArr = Array ("Arriba a la izquierda", "", "", "Arriba al centro", "", "", "", "")
xButtArr = Array ("Inferior izquierda", "", "", "Inferior central", "", "", "", "")
2. Cambie el índice de color de fondo en esta picadura:
Cells (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Celdas (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!