Most Valuable Professional


View Jan Karel Pieterse's profile on LinkedIn subscribe to rss feed
Subscribe in a reader

Subscribe to our mailing list

* indicates required

Audit !!!

Probeer onze RefTreeAnalyser
de beste Excel formule auditing tool.

Cursussen

Excel VBA Masterclass (Engels)
Excel VBA voor Financials

Third party tools

Speed up your file

FastExcel
The best tool to optimise your Excel model!

Repair your file

Stellar Phoenix Excel Repair
Best tool to repair corrupt Excel sheets and objects
Home > Nederlandse site > Artikelen > Toon plaatje
This page in English

Een plaatje tonen uit een lijst met plaatjes

Inleiding

Excel wordt nogal eens gebruikt om bijvoorbeeld onderdelen lijsten in bij te houden, soms zelfs inclusief plaatjes van de onderdelen in het Excel bestand.

In dit artikel wordt een methode getoond om een dynamisch plaatje te maken, welk verandert wanneer een ander artikelnummer wordt gekozen uit de lijst met beschikbare artikelnummers.

De lijst voorbereiden

Allereerst moeten de plaatjes op de juiste manier geplaatst worden. Elk plaatje moet hierbij volledig binnen de kaders van 1 cel passen, op dezelfde rij als het artikelnummer waartoe het plaatje behoort.

Formatteer de cellen, zodat het plaatje volledig in 1 cel past (pas of de afmetingen van het plaatje aan, of verander de rijhoogte en kolombreedte):

Figuur 1, Schermafbeelding die een lijst met ikoontjes toont, naast hun beschrijvingen.

Het werkblad waarop het dynamische plaatje getoond gaat worden voorbereiden

Er is een methode nodig om te bepalen welk plaatje getoond moet worden. We beginnen door een dynamische range naam te definieren, welke zich automatisch aan het aantal artikelen zal aanpassen (aannemende dat de gegevens staan op werkblad Sheet1, beginnende in cel A1, met 1 kopregel). In Excel 97-2003 kies Invoegen, Naam, Definieren; In Excel 2007 en hoger in het lint, de tab "Formules", de "Gedefinieerde Namen" groep, de "Naam Bepalen " knop kiezen. Voer de volgende naam in:

Naam Verwijst Naar
PictureList =VERSCHUIVING(Sheet1!$A$1;1;0;AANTALARG(Sheet1!$A:$A)-1;1)

Stel dat cel A2 op Sheet2 wordt gebruikt om een code in te voeren behorende bij een plaatje. Dan zal onderstaande formule wijzen naar de cel die het plaatje omvat:

Name Refers to
Picture =VERSCHUIVING(Sheet1!$B$2;VERGELIJKEN(Sheet2!$A$2;PictureList;0)-1;0;1;1)

Het plaatje maken

Excel 2007

Er zijn 2 manieren om het juiste type plaatje in Excel 2007 te krijgen. De eerste is door gebruik te maken van de "camera tool" door deze toe te voegen aan de QAT, De andere woordt hieronder getoond.

Selecteer de cel waar het dynamische plaatje moet verschijnen en klik op de tab "Invoegen" van het lint. Helemaal aan de rechterkant bevindt zich de knop "Object", klik daar op.


Figuur 2, Object knop op het lint

Het dialoogvenster object verschijnt. Kies de bovenste optie (Bitmap afbeelding) en klik OK.


Figuur 3, Dialoogvenster Object

Excel 2010

In Excel 2010 werkt het invoegen van een object niet en moet je Afbeelding invoegen kiezen.

Druk op escape om terug te keren naar Excel. Als het goed is, is een nieuwe (leeg) afbeeldingsobject geselecteerd. De formule balk bevat nu een formule met zoiets als =INSLUITEN("Paint.Picture";""). Vervang de formule in de formulebalk door deze formule: =Picture


Figuur 3, Schermafdruk die de formule van het geplakte plaatje toont.

Druk enter of klik het groene vinkje links van de formulebalk.

Excel 97 tot en met 2003

Selecteer de bovenste cel met en plaatje erin. Houdt de shift knop ingedrukt en kies uit het menu: "Bewerken, Afbeelding kopiëren...":

Figuur 4, Schermafdruk die het menu Bewerken toont wanneer de shift knop wordt ingedrukt.

Selecteer "Als op scherm" in het volgende venster en klik OK.

Selecteer nu de cel waarin je het plaatje wilt tonen (op werkblad Sheet1 in dit vorbeeld) en klik op de "plakken" knop (of druk control-v):

Figure 5, Schermafdruk die het geplakte plaatje toont.


Figure 6, Schermafdruk die de formule van het geplakte plaatje toont.

Het plaatje dynamisch maken

Om het selecteren van de beschrijvingen te vereenvoudigen, kunnen we gebruik maken van Data, Validatie:

Nu kan kunnen we kiezen uit een lijst met beschikbare beschrijvingen:

Klaar!

Download

Klik hier om een voorbeeld bestand te downloaden.

Andere oplossingen

Bernie Deitrick bedacht dit bestand, dat meerdere plaatjes aan kan, maar VBA gebruikt.


Vragen, suggesties en opmerkingen

Laatste 8 commentaren van in totaal 55 (Toon ze allemaal):

 


Comment by: Jan Karel Pieterse (12/30/2014 10:36:14 AM)

Hallo Robert,

Je zou dit eenvoudig met een voorwaardelijke opmaak kunnen doen denk ik. Een alternatief is gebruik maken van een ALS formule die bij de gewenste waarde in die cel een letter toont. Vervolgens lettertype wingdings of webdings kiezen om het symbool te tonen. Het makkelijkst is het om eerst rechtstreeks Symbool invoegen te kiezen en daarna de formule te bewerken.

 


Comment by: Robert (12/30/2014 10:57:49 AM)

Beste Jan Karel,

Kan ik het document op een bepaalde manier toezenden, want het is niet zozeer een 'symbool', zoals jij bedoelt denk ik, maar een afbeelding.

Een bepaalde waarde (1,2,3) vertegenwoordigt een bepaalde kleur (Groen, Blauw, Oranje).

Als in Blad 1 C4 1 is, wordt in blad2 een Groene afbeelding getoond. Als in Blad 1 C5 3 is, wordt in Blad3 een Oranje afbeelding getoond.

Volg je me nog?

 


Comment by: Jan Karel Pieterse (12/30/2014 1:20:29 PM)

Hoi Robert,

Stuur maar op!

 


Comment by: Jan Karel Pieterse (12/30/2014 1:42:31 PM)

Hoi Robert,

Gewoon, email met onderstaand adres...

 


Comment by: Guillaume (2/26/2015 12:57:32 PM)

Hallo,

Is er iemand die mij hierin kan helpen.

Het lukt mij namelijk niet. loop er gewoon mee vast elke keer. Hoor graag of iemand mij kan helpen als ik het bestand opstuur.

 


Comment by: Jan Karel Pieterse (2/26/2015 1:11:01 PM)

Hallo Guillaume,

Stuur maar op (zie adres hieronder).

 


Comment by: Anonymous (8/26/2015 2:00:03 PM)

Beste,

Ik heb een bestand in excel met 9 tabbladen.
Het eerste tabblad is het werkblad die alle formules bevat om prijzen aan te passen per tabblad.
Het gaat namelijk om een tarieflijst.

Graag had ik dan ook op de eerste werkblad tab een afbeelding ingevoegd zodanig dat die op alle volgende tabs ook ineens komt te staan.

Echter vind ik niet hoe dit te doen?

Kunt u mij helpen aub?

Alvast bedankt!

 


Comment by: Jan Karel Pieterse (9/1/2015 8:53:21 AM)

Hallo Pushpa,

Als je de eerste afbeelding gemaakt hebt en deze werkt, kan je die gewoon kopieren en op de andere tabbladen plakken.

 


Heeft u vragen, suggesties of opmerkingen? Gebruik dan dit formulier.

Mocht uw vraag niet direct relevant zijn voor deze pagina, maar een algemene Excel vraag betreffen, dan adviseer ik om deze hier te stellen: www.eileenslounge.com.

Uw naam (verplicht veld):

Uw e-mail adres (Niet verplicht, dit adres wordt niet getoond)

Uw verzoek of commentaar:

Als u VBA code in uw commentaar plaatst, gebruik dan [VB] tags: [VB]Uw code[/VB].