KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe kleurt u een grafiek in Excel op basis van de celkleur?

AuteurXiaoyang Wijzigingsdatum

Wanneer u een standaardgrafiek maakt in Excel, zoals een kolom- of Staafgrafiek, krijgen de reeksen of datapunten de standaardkleuren van Excel toegewezen, die mogelijk niet overeenkomen met de Vulkleur in uw Gegevensbereik. In veel situaties – zoals dashboards, rapportages of datavisualisaties – wilt u echter dat de balken in uw grafiek exact dezelfde kleuren hebben als de broncellen. Dit bevordert visuele consistentie, maakt het gemakkelijker om gegevens in één oogopslag te interpreteren en versterkt categoriegroeperingen waarbij kleur als betekenisvolle indicator fungeert. Bijvoorbeeld: u wilt dat elke kolom in uw grafiek de kleurcodering weerspiegelt die u hebt toegepast in uw samenvattende tabel, zoals op de onderstaande schermafbeelding. Excel biedt geen ingebouwde functie om celVulkleur (vooral handmatig toegepaste) automatisch aan grafiekelementen te koppelen. Daarom zijn verschillende methoden vereist, afhankelijk van of de celkleur handmatig is ingesteld of gebaseerd is op een formule of regel. Hieronder vindt u meerdere praktische oplossingen om deze overeenkomst effectief te realiseren in diverse scenario’s.

kleurenkaart op basis van celkleur

Kleur de grafiek met één of meerdere gegevensreeksen op basis van de celkleur met VBA-code

Kleur de grafiek met één of meerdere gegevensreeksen op basis van de celkleur met een geweldige functie

Kleur de grafiek met één of meerdere gegevensreeksen op basis van de celkleur met VBA-code

Kleur de grafiek met één gegevensreeks op basis van de celkleur

Als u wilt dat de balken in uw grafiek automatisch de vulkleur overnemen van de bijbehorende cellen — en deze kleuren handmatig zijn toegepast (dus niet via voorwaardelijke opmaak of formules) — dan kunt u VBA gebruiken om de kleuren van de grafiekbalken te synchroniseren met de oorspronkelijke celkleuren. Deze techniek is vooral nuttig voor grafieken met één gegevensreeks, waarbij visuele consistentie essentieel is voor duidelijkheid of het voldoen aan rapportagestandaarden.

1. Selecteer eerst uw gegevens en maak een staaf- of kolomdiagram. Selecteer hiervoor de relevante cellen en klik op Invoegen > Kolom- of staafgrafiek invoegen. U ziet nu een standaardgrafiek, zoals op de onderstaande schermafbeelding:

voeg een kolom- of staafdiagram in

2. Druk op ALT + F11 om de Microsoft Visual Basic for Applications (VBA)-editor te openen.

3. Klik in het VBA-venster op Invoegen > Module. Kopieer en plak vervolgens de volgende code in het modulevenster. Dit script past elke grafiekbalk automatisch aan zodat deze overeenkomt met de vulkleur van de bijbehorende cel.

VBA-code: Grafiekbalken met één gegevensreeks kleuren op basis van de celkleur:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub
Opmerking:Vervang in de bovenstaande code Chart1door de daadwerkelijke naam van uw grafiek (u vindt deze in het Naamvak wanneer de grafiek is geselecteerd). Als u uw grafiek later een andere naam geeft, moet u de macro dienovereenkomstig bijwerken.)

4. Nadat u de code hebt ingevoerd, drukt u op F5 om de macro uit te voeren. De grafiekbalken weerspiegelen nu de vulkleur van de brongecellen, wat directe visuele overeenkomst biedt, zoals op de volgende schermafbeelding:

voer VBA-code uit om het diagram te kleuren op basis van celkleur

Deze methode is ideaal voor grafieken waarbij de celvulkleuren handmatig zijn ingesteld en regelmatig handmatig worden aangepast. Houd er echter rekening mee dat u de VBA-code opnieuw moet uitvoeren wanneer de celkleuren wijzigen, aangezien de koppeling niet dynamisch is. Vergeet ook niet uw werkmap op te slaan als een macro-inschakelbestand (.xlsm), zodat de code behouden blijft.

Kleur de grafiek met meerdere gegevensreeksen op basis van de celkleur

Als uw grafiek meerdere gegevensreeksen bevat – bijvoorbeeld verschillende producten in de loop van de tijd of diverse categorieën – kunt u een vergelijkbare VBA-aanpak toepassen om elk balksegment of datapunt te koppelen aan de vulkleur van de bijbehorende brongecel. Zo blijven uw rapportages visueel consistent en kunnen lezers eenvoudig gegevens tussen het werkblad en de grafiek vergelijken.

1. Stel uw gegevens in en maak een gestapeld staaf- of kolomdiagram, zoals hieronder wordt getoond:

Kleur het diagram met meerdere gegevensreeksen op basis van celkleur

2. Druk op ALT + F11 om de VBA-editor te openen.

3. Klik in het VBA-venster op Invoegen > Module en plak de volgende code:

VBA-code: Grafiekbalken met meerdere gegevensreeksen kleuren op basis van de celkleur:

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. Voer deze code uit door op F5 te drukken. De reeksen in uw grafiek worden bijgewerkt, zodat ze de celvulkleur in uw gegevensbereik weerspiegelen, zoals hieronder wordt geïllustreerd:

voer VBA-code uit om het diagram met meerdere gegevensreeksen te kleuren op basis van celkleur

Opmerkingen:
  • De code verwijst standaard naar de grafiek als Grafiek1. Pas deze aan zodat deze overeenkomt met de werkelijke naam van uw grafiek, indien nodig.
  • Deze aanpak ondersteunt niet alleen staaf- of kolomdiagrammen, maar ook lijngrafieken.
  • Als u problemen ondervindt, zoals het uitblijven van updates of foutmeldingen, controleer dan of de gegevensreeksen van uw grafiek exact overeenkomen met het celkleurbereik.

Hoewel deze techniek volledige controle en flexibiliteit biedt bij handmatig gekleurde gegevens, werkt ze niet wanneer de kleur wordt gegenereerd via Voorwaardelijke opmaak of automatisch door formules. Bekijk in dergelijke situaties de onderstaande oplossingen op basis van formules en Voorwaardelijke opmaak voor meer dynamische opties.

Kleur de grafiek met één of meerdere gegevensreeksen op basis van de celkleur met een geweldige functie

Hoewel VBA grafiekkleuren kan synchroniseren met celvullingen, vereist dit het handmatig uitvoeren van code — en sommige gebruikers voelen zich ongemakkelijk bij macro’s of VBA-beveiligingsmeldingen. Als u op zoek bent naar een gestroomlijndere en interactievere aanpak, biedt de Verander grafiekkleur op basis van celkleur-functie in Kutools voor Excel een efficiënte oplossing. Deze tool past de celvulkleur automatisch toe op de bijbehorende grafiekelementen, ongeacht of u één of meerdere gegevensreeksen in uw grafiek hebt. En zelfs als u de celkleuren later wijzigt, blijft de koppeling intact — een eenvoudige heraanvraag vernieuwt de grafiek direct.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...
Tip:Om dit Verander grafiekkleur op basis van celkleurhulpprogramma te gebruiken, moet u eerst Kutools voor Exceldownloaden en installeren. Het proces is eenvoudig en kan het toewijzen van kleuren aanzienlijk versnellen.

Na installatie van Kutools voor Excel, gaat u als volgt te werk:

1. Voeg de grafiek in die u wilt kleuren. Selecteer de grafiek en ga naar Kutools > Grafieken > Grafiektools > Verander grafiekkleur op basis van celkleur, zoals op de onderstaande afbeelding:

klik op de functie Diagramkleur wijzigen volgens celkleur van Kutools

2. Klik in het verschijnende dialoogvenster eenvoudigweg op OK.

een meldingsvenster wordt weergegeven

3. De grafiek wordt direct bijgewerkt om overeen te komen met uw celkleuren, zoals in de volgende voorbeelden:

Kleur de grafiek met één gegevensreeks op basis van de celkleur
Kleur het diagram met één gegevensreeks op basis van celkleur

Kleur de grafiek met meerdere gegevensreeksen op basis van de celkleur
Kleur het diagram met meerdere gegevensreeksen op basis van celkleur

Deze functie is ideaal voor iedereen die regelmatig Grafiekkleur automatisch wil laten overeenkomen en een herbruikbare oplossing zoekt, ongeacht gegevensupdates. Het bespaart aanzienlijk veel tijd vergeleken met handmatige opmaak of het uitvoeren van macro’s en is vooral nuttig in samenwerkingsomgevingen waar meerdere personen gegevens of grafiekpresentaties bewerken.

Download nu de gratis proefversie van Kutools voor Excel!

Meer gerelateerde grafiekartikelen:

  • Een Staafgrafiek maken die een andere Staafgrafiek overlapt in Excel
  • Wanneer u een gegroepeerde staaf- of kolomdiagram maakt met twee gegevensreeksen, worden de staven van die reeksen naast elkaar weergegeven. Soms is het echter handiger om een overlappend of gedeeltelijk overlappend staafdiagram te gebruiken, zodat u de twee gegevensreeksen nog duidelijker met elkaar kunt vergelijken. In dit artikel leg ik uit hoe u zo’n overlappend staafdiagram maakt in Excel.
  • Opmaak van één grafiek kopiëren naar andere grafieken in Excel
  • Stel dat uw werkblad meerdere verschillende soorten grafieken bevat. U hebt één grafiek perfect opgemaakt en wilt die stijl nu toepassen op de andere grafieken. Natuurlijk kunt u ze handmatig, één voor één aanpassen — maar dat kost veel tijd. Bestaan er snellere of handigere manieren om de opmaak van één grafiek naar andere grafieken te kopiëren in Excel?
  • Hoogste en laagste datapunten markeren in een grafiek
  • Stel dat u een Kolomdiagram hebt waarin u de hoogste of laagste datapunten met verschillende kleuren wilt markeren om ze duidelijk te laten opvallen, zoals op de onderstaande schermafbeelding. Hoe kunt u snel de hoogste en laagste waarden identificeren en de bijbehorende datapunten in de grafiek markeren?
  • Een Staafdiagram maken in Excel
  • Een staafdiagram is ideaal om veranderingen op onregelmatige intervallen weer te geven; het is eigenlijk een uitgebreide variant van een lijngrafiek. Helaas biedt Excel geen directe optie om dit type diagram te maken. In dit artikel leg ik u stap voor stap uit hoe u toch eenvoudig een staafdiagram kunt creëren in uw Excel-werkblad.
  • Voortgangsbalkdiagram maken in Excel
  • In Excel kunnen voortgangsbalkdiagrammen u helpen de voortgang richting een doel te volgen, zoals op de onderstaande schermafbeelding. Maar hoe maakt u een voortgangsbalkdiagram in een Excel-werkblad?

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins