Doorgaan naar hoofdcontent

Excel: Multi thermometer grafiek

Op internet vinden we diverse Excel voorbeelden en sjablonen van zogenaamde thermometer grafieken. In alle voorbeelden die ik kon vinden, wordt er gebruik gemaakt van SmartArt om de bol van de thermometer te maken. Als je dan meer thermometers naast elkaar maakt, wordt het bewerkelijker. Bovendien staat de SmartArt bol los van de grafiek. Zodra je de grafiek verplaatst of de breedte verandert, gaat de bol niet mee.

In mijn voorbeeld heb ik de bol gemaakt met behulp van een lijngrafiek met markeringen. Van de markering kun je dan een bol maken. Deze bol kun je opblazen. En klaar is kees. Je kunt dan probleemloos het aantal thermometers opvoeren en de grafiek groter en kleiner maken.

Hoe maken we deze grafiek?

§  Neem vanaf rij 32 de bovenstaande gegevens over of open het blad Thermometer.
§  Selecteer de rij lijn met alle nulpunten.
§  Kies Invoegen Þ Lijn Þ Lijn met gegevensmarkering.

   
Lijn zit gekoppeld aan de primaire horizontale as.

§   Selecteer de punten in de Lijngrafiek met gegevensmarkeringen.
§   Klik rechts op de selectie.
§   Kies Gegevensreeks opmaken.
§   Selecteer markeringsopties.

      Markeringstype =   standaard
  Vorm           =   cirkel
  Grootte        =   72 pt

§   Voeg als tweede reeks de buitenrand met het doel toe

      Reeksnaam      =   doel is $B$40
  Reekswaarden   =   waarden zijn $C$40:$G$40

Doel zit gekoppeld aan de primaire verticale as.

§   Selecteer de punten van de tweede reeks.
§   Wijzig deze in een ander grafiektype, namelijk gegroepeerde kolom.
§   Voeg als derde reeks de kolom met de totalen toe (het kwik)
§   Wijzig dit grafiektype in een gegroepeerde kolom.

We voegen de zojuist toegevoegde kolom toe aan de secundaire as en vervolgens wijzigen we ook de breedte van de tussenruimte.

§   Klik met de rechtermuis in de totalen kolom.
§   Kies Gegevensreeks opmaken Þ Opties voor reeks.

     Tussenruimte       =      199%
  Reeks tekenen op   =      Secundaire as
  
Totalen zit gekoppeld aan de secundaire verticale as.

§   Pas de tussenruimte van de buitenrand (doel)aan

     Tussenruimte       =      175%
  Reeks tekenen op   =      Primaire as

Vervolgens wijzigen we de maximum waarde van de linker Y-as, want deze is zo groot als het doel.

§   Klik met de rechtermuis op de Y-as.
§   Kies As-opmaken Þ Opties voor As.

      Maximum            =      2000
  Primaire maatstr   =      geen

§   Kies vervolgens Lijnkleur.

     Lijnkleur      =   Geen lijn

§   En daarna Notatie.

     Notatiecode    =   € #.##0;;;

§   Verwijder nog de Legenda en de tweede Y-as en de X-as.

Opmaak gebieden en reeksen

Vormgeving speelt een belangrijke rol bij het maken van Dashboards. De onderstaande opdrachten regelen de opmaak voor de verschillende gebieden in het werkblad, maar ook in het grafiekgebied en de verschillende reeksen binnen het grafiekgebied.

§   Geef de A en de H kolom een breedte van 2,5.
§   Maak de kolommen B:G 22 punten breed.
§   Maak de grafiek passend binnen het gebied B2:G30.
§   Pas het tekengebied aan zodat de grafiek met de thermometer goed zichtbaar is.
§   Maak de reeks A1:H31 via Celeigenschappen lichtblauw.

     RGB            =   184, 204, 228

§   Geef de overgebleven gebieden naast de tabel dezelfde opmaak.
§   Kies voor Grafiekgebied opmaken Þ opvulling.

     Opvulling      =   effen
  Kleur          =   Blauw accent 1 lichter 80%
  Randkleur      =   Ononderbroken streep, Blauw accent 1 lichter 40%

§   Kies voor Tekengebied opmaken Þ opvulling.

     Opvulling      =   Géén opvulling
  Randkleur      =   Géén lijn

§   Selecteer de kolom met totalen (het kwik): Gegevensreeks opmaken Þ opvulling.

      Opvulling      =   Effen
      Kleur          =   Blauw accent 1 lichter 40%
  3D opmaak      =   Boven, schuine rand, Cirkel
  Breedte        =   22 punten
  Hoogte         =   32,5 punten
  Oppervlak      =   Mat warm
  Belichting     =   Driepunts

§   Selecteer de kolom met de buitenrand (het doel): Gegevensreeks opmaken Þ opvulling.

     Opvulling      =   Géén
  Randkleur      =   Ononderbroken streep, Blauw accent 1 donkerder 50%
  Randstijlen    =   4,5 punten breed

De afronding

De laatste fase bestaat uit het aanbrengen van de verschillende labels en het aanpassen van de cirkel in de thermometer.

§   Selecteer de cirkels van de thermometer.
§   Kies Gegevensreeks opmaken Þ Markeringsopvulling.

  Opvulling      =   Effen
      Kleur          =   Blauw accent 1 lichter 40%
  3D opmaak      =   Boven, schuine rand, Cirkel


  Breedte        =   22 punten
  Hoogte         =   32,5 punten
  Oppervlak      =   Mat warm
  Belichting     =   Driepunts

§   Ga naar Gegevensbron selecteren.
§   Selecteer Lijn.
§   Kies vervolgens voor Horizontale aslabels. 
§   Het Aslabelbereik wordt

  =Blad1!$C$41:$G$41

§   Klik met de rechtermuis op één van de cirkels.
§   Kies Gegevenslabels toevoegen.
§   Klik nogmaals met de rechtermuis op één van de cirkels.
§   Kies Gegevenslabels opmaken.

  Labelopties    =   Categorienaam
  Labelpositie   =   Centreren

§   Klik met de rechtermuis op één van de staven van de binnenrand (het totaal).
§   Kies Gegevenslabels toevoegen.
§   Kies daarna via Gegevenslabels opmaken.

Het totaal zit gekoppeld aan de secundaire verticale as.

  Labelopties    =   Waarde
  Labelpositie   =   Centreren

Om een label boven in de grafiek te krijgen moeten we een nieuwe reeks toevoegen, deze als een Secundaire horizontale as toevoegen en daar vervolgens een label aan koppelen.

§   Ga naar Gegevensbron selecteren.
§   Kies voor het Toevoegen van een reeks.

  Reeksnaam      =   bovenlijn
  Reekswaarden   =   =Blad1!$C$40:$G$40, idem als Doel
  
§   Klik met de rechtermuis op de horizontale lijn.
§   Kies Gegevensreeks opmaken.

  Opties voor reeks  =      secundaire as

§   Ga naar Gegevensbron selecteren.
§   Selecteer Bovenlijn.
§   Kies vervolgens voor Horizontale aslabels.


§   Klik met de rechtermuis op de Bovenlijn
§   Kies Gegevenslabels toevoegen.
§   Pas dit aan via Gegevenslabels opmaken.

  Labelopties    =   Categorienaam
  Labelpositie   =   Boven

Verberg nog de sterretjes op de Bovenlijn.

§   Klik rechts op de sterretjes.
§   Kies Gegevensreeks opmaken.

  Markeringsopties   = Géén
  Lijnkleur          = Géén lijn

§   Maak de verschillende labels vetgedrukt
§   Kies bij Gegevensbron selecteren de knop Verborgen en lege cellen.
§   Schakel het vinkje in.


Het voorbeeld is te downloaden als ExcelThermometer.xlsx via

https://drive.google.com/folderview?id=0B7HgkOwFZtdZVmhRQUZFM28yc1U&usp=sharing

Voor verder Excel tips klik hier.

Reacties

Populaire posts van deze blog

Friesland: nu ruim 1500 Friese familiewapens doorzoekbaar

Inleiding Het totale overzicht is nu ook als PDF te downloaden: rptWapens Al jaren verzamel ik de teksten van grafzerken en andere voorwerpen om ze in een database bijeen te brengen. Op heel veel oude grafzerken, rouwborden of andere voorwerpen in Friesland treffen we naast tekst ook vaak familiewapens aan. Ruim een jaar geleden ben ik gestart met het koppelen van familiewapens aan deze teksten. Met behulp van deze database kunnen we nu steeds meer voorheen onbekende wapens thuisbrengen of andersom, initialen herleiden tot de bijbehorende namen. Een voorbeeld. Zo kennen we uit het boek Fries Zilver nummer 894 met de tekst: TDH RBB 1669 Tjitte D. Wijngaarden geboren 6 october 1874 Daarbij een mannen- en een vrouwenwapen. Mannenwapen blijkt dat van Hoitinga te zijn. De letters blijken vervolgens te herleiden tot Tjepke Douwes Hoitinga en Rienkje Bouwes Bruinsma uit Nijland. Vermoedelijk getrouwd in 1669! Opgelost. Ander voorbeeld. Op een lepel uit het boek Dokk...

Excel: VBA script om wachtwoord te verwijderen

Af en toe krijg ik een vraag om een wachtwoord van een Excel blad te halen. Doodsimpel met VBA. Hier een script dat ik gebruik: Sub WachtwoordCrack()     Dim a As Integer, b As Integer, c As Integer, d As Integer, _     e As Integer, f As Integer, g As Integer, h As Integer, _  I As Integer, j As Integer, k, m As Integer     Dim begin As Date, eind As Date     Dim duur As String     Dim objSheet As Worksheet     begin = TimeValue(Time)     On Error Resume Next     For Each objSheet In Application.Worksheets         For a = 65 To 66: For b = 65 To 66: For c = 65 To 66             For d = 65 To 66: For e = 65 To 66: For f = 65 To 66                 For g = 65 To 66: For h = 65 To 66: For I = 65 To 66                     For j = 65 To 66: For k = 65 To...

Excel: Creating Your Own Tabs With XML And VBA

In order to create you own nice looking tabs you need the Custom UI Editor for Microsoft Office. You can download it for free. How is this different from choosing File , Options , Customize Ribbon and adding a new tab with new groups and then commands to the group? You can also move the new tab to any position. T hen your new tab is always there. Even when you don't open the specific file with the right VBA. In my example the outcome looks like this, a nice tab, placed in front of the Home Tab. You will only get this tab when you start the specific example (which you can download). The XML behind this: <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">    <ribbon startFromScratch="false">     <tabs>       <tab id="MaxIlze" label="Dossier Overzicht" insertBeforeMso="TabHome">         <group id="customGroup1" label="Adressen verrijken">         ...