Hoe voeg je een achtergrondkleur toe aan kopteksten of voetteksten in een Excel-werkblad tijdens het afdrukken?

Zoals we weten, kunnen we inhoud of afbeeldingen toevoegen aan de koptekst of voettekst van een werkblad, die zichtbaar zijn tijdens het afdrukken. Maar heb je ooit geprobeerd om een achtergrondkleur toe te voegen aan de kopteksten of voetteksten? Eigenlijk is er geen ingebouwde functie die dit kan doen, maar hier introduceer ik enkele omweggetjes om deze berekening uit te voeren.

Voeg een achtergrondkleur toe aan koptekst of voettekst met Vulkleur

Voeg een achtergrondkleur toe aan koptekst en voettekst met VBA

Voeg een achtergrondkleur toe aan koptekst of voettekst met Vulkleur

1. Klik op Pagina-indeling > Pagina-instelling.

2. In het Pagina-instelling dialoogvenster, onder het tabblad Marges voer waarden in voor 0 in Boven, Koptekst, Onder en Voettekst tekstvakken.

3. Klik op OK. Selecteer vervolgens de eerste rij en klik op Start > Samenvoegen & Centreren.

3. Ga verder en selecteer een kleur uit de Vulkleur lijst om een achtergrondkleur toe te voegen aan de samengevoegde cellen.

4. Herhaal stap 2 en 3 om een achtergrondkleur toe te voegen aan de voettekstrij die je wilt.

Nu lijkt het alsof er een achtergrondkleur is toegevoegd aan de koptekst en voettekst.

Voeg een achtergrondkleur toe aan koptekst en voettekst met VBA

Hier is een VBA-code die snel een achtergrondkleur kan toevoegen aan de koptekst en voettekst tegelijkertijd.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, kopieer en plak de onderstaande code in de nieuwe module.

VBA: Voeg een achtergrondkleur toe aan koptekst en voettekst

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. Druk op F5 toets om de code uit te voeren, dan wordt er een bepaalde achtergrondkleur toegevoegd aan de eerste rij en de 47e rij van elk werkblad, wat als nep-koptekst en -voettekst zal verschijnen.

Opmerking: in de code kun je onderstaande scripts wijzigen om aan je behoeften te voldoen.

1. Pas de inhoud van de koptekst en voettekst aan zoals nodig in de string:

xTopArr = Array("Linksboven", "", "", "Midden boven", "", "", "", "")

xButtArr = Array("Linksonder", "", "", "Midden onder", "", "", "", "")

2. Wijzig de achtergrondkleurcode in deze string:

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

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