Como adicionar cor de fundo a cabeçalhos ou rodapés em planilhas do Excel durante a impressão?
Como sabemos, podemos adicionar conteúdo ou imagem ao cabeçalho ou rodapé de uma folha, que será exibido durante a impressão. Mas você já tentou adicionar cor de fundo aos cabeçalhos ou rodapés? Na verdade, não há nenhuma função incorporada que possa lidar com isso, mas aqui apresento algumas formas indiretas de realizar a operação.
Adicionar cor de fundo ao cabeçalho ou rodapé pela cor de preenchimento
Adicionar cor de fundo ao cabeçalho e rodapé por VBA
Adicionar cor de fundo ao cabeçalho ou rodapé pela cor de preenchimento
1. Clique layout de página > Configuração da página.
2. No Configuração da página diálogo, sob margens guia, tipo 0 para dentro Saída, cabeçalho, Inferior e Rodapé caixas de texto.
3. Clique OK. Em seguida, selecione a primeira linha e clique em Home page > Unir e centrar.
3. Vá em frente para selecionar uma cor de Preencher color lista para adicionar cor de fundo às células mescladas.
4. Repita as etapas 2 e 3 para adicionar a cor de fundo à linha de rodapé desejada.
Agora a página parece adicionar cor de fundo ao cabeçalho e rodapé.
Adicionar cor de fundo ao cabeçalho e rodapé por VBA
Aqui está um código VBA que pode adicionar rapidamente a cor de fundo ao cabeçalho e rodapé ao mesmo tempo.
1. Pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, copie e cole o código abaixo no novo módulo.
VBA: adicionar cor de fundo ao cabeçalho e rodapé
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. Pressione F5 para executar o código, então certa cor de fundo foi adicionada à primeira linha e à 47ª linha de cada folha, que será mostrada como cabeçalho e rodapé falsos.
Nota: no código, você pode alterar os scripts abaixo para atender às suas necessidades.
1. Altere o conteúdo do cabeçalho e rodapé conforme necessário na string:
xTopArr = Array ("Top Left", "", "", "Top Center", "", "", "", "")
xButtArr = Array ("Bottom Left", "", "", "Bottom Center", "", "", "", "")
2. Altere o índice de cor de fundo nesta picada:
Células (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Células (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!