Doorgaan naar hoofdcontent

Posts

Posts uit december, 2013 weergeven

Excel: Inspired By a Nice Graph in a Dutch News Paper

Inspired by a nice graph from the Volkskrant of last Saturday:


The data from A1:E15:

In procentenHelemaal natuurBeetje natuurGeen natuurTropisch regenwoud9541De Veluwe9370De Waddenzee9181Damherten83152Schone lucht78184Merels75232Schapen in de wei68302Graanvelden52417Een boomrijk stadspark40564Medicinale planten324919Een klimop in de achtertuin245917Muntthee113851Bedrijventerrein met bomen54154Een hondenuitlaatplaats31879
You can download the file excelnatuur.xlsx through this link:
https://drive.google.com/folderview?id=0B7HgkOwFZtdZVmhRQUZFM28yc1U&usp=sharing

Excel: Line Chart With Markers with Different Colors Above and Below Target

A simple but nice idea. I just could not work out the idea to give the line above different colors when above or below the target line. Myabe somebody has a better idea?


Here are the data from A1:E14:

YearRealTargetAboveBelow2001130100130#N/A2002120100120#N/A200380100#N/A802004110100110#N/A200590100#N/A902006120100120#N/A200776100#N/A762008111100111#N/A2009112100112#N/A201097100#N/A97201195100#N/A952012104100104#N/A2013106100106#N/A
You can download the file lijngrafiek.xlsx through this link:
https://drive.google.com/folderview?id=0B7HgkOwFZtdZVmhRQUZFM28yc1U&usp=sharing

Excel: Bar and Column Graph Combined Gives a banded Chart

When you combine a bar and a column graph you can create this nice example:


Here are the data from A1:C10:

YearAmountBands2001 € 120,00 02002 € 134,00 82003 € 100,00 02004 € 123,00 82005 € 154,00 02006 € 111,00 82007 €   98,00 02008 € 145,00 80
You can download the file ExcelBanded.xlsx through this link:
https://drive.google.com/folderview?id=0B7HgkOwFZtdZVmhRQUZFM28yc1U&usp=sharing

Friesland: chronogrammen in grafmonumenten of muurstenen

Onlangs kreeg ik een e-mail van Hindrik de Jong uit Tjalleberd. Hij had een bericht ontvangen van een Duitse kennis met een grafschift waarin een jaartal vervlochten zat:

Mors est pIo abItVs aD ChrIstI regna

Hij vroeg zich af of wij zoiets in Friesland wel eens tegengekomen waren. De twee gevallen die mij te binnen willen schieten, zijn die van de muursteen in de kerktoren van de Benedictuskerk te Dantumawoude (http://www.benedictuskerk.nl/?pagina=toren):

theoDorVs V sCheLtInga Den eerstgeboren geeft aen ons toren een eeVWig steen Voor VaDers been.
en de stichtingssteen van de St. Michaelskerk te Woudsend:

haeC eXstrUCta DeI trInI est In LaUDIbUs aeDes eXstet et In pago grata per enne bonIs


Alle waarden van de hoofdletters, als Romeinse cijfers, vormen het totaal van 1792.

Van een goede vriend hoorde ik dat dit fenomeen chronogram wordt genoemd. Een andere naam is jaardicht (http://nl.wikipedia.org/wiki/Jaardicht)
Ik heb eens rondgekeken naar meer voorbeelden. Via de website http://erfgoedkloo…

Excel: Graph with two Y Axis

Saw a graph with two Y-axis in the Dutch magazine Elsevier. This is what I made of it:


The orginal looked like this:


Here are the data from A1:C8

Dec. 2013Compared to 2012Germany1,74 %0,36 %Netherlands2,06 %0,45 %France2,17 %0,13 %Italy4,08 %-0,42 %Spain4,15 %-1,16 %Portugal5,87 %-1,70 %Greece8,54 %-7,39 %
You can download the file ExcelTwoYAxis.zip through this link:
https://drive.google.com/folderview?id=0B7HgkOwFZtdZVmhRQUZFM28yc1U&usp=sharing

Word VBA: Autotext and Built In Building Block Entries

The first script deletes all autotext entire from the normal.dotm

Sub DeleteNormalAutoTextEntries()
    'goal: delete all autotext entries from normal.dotm
    Dim i As AutoTextEntry
    'wissen autotextentries
    For Each i In NormalTemplate.AutoTextEntries
        i.Delete
    Next
End Sub

The second script deletes all built in building block entries from the template built-in building blocks.dotx

Sub DeleteBuiltinBuildingblockentries()

    'Word 2010 and up
    'goal: delete all elements from built-in building blocks.dotx

    On Error Resume Next 'necessary while deleting from the template causes errors

    Dim objTemplate As Template
    Dim i As Integer 'counter
    Dim bb As Word.BuildingBlock 

    Set objTemplate = Templates(1) 'templates(1) = built-in building blocks.dotx
    For i = 1 To 10 'you need more loupes while it simply doed not work to delete all in one round
        For Each bb In objTemplate.BuildingBlockEntries
           bb.Delete
        Next
    Nex…