Show Picture

JKP Application Development Services.

Microsoft Office Application Development

Show Picture

Up • Beschadigde mappen • Macro Verspreiden • Excel Namen • Opstart Problemen • Vergelijking plotten • Show Picture • Round2Digits • Control Events • Custom Find • FormuleFoutControle • Events uitschakelen • WebQuery • Undo met Excel VBA • XML en Excel 2003 • Selecteer een bereik (VBA) • Transponeer Tabel • VBE Vensters dokken • Een invoegtoepassing bijwerken

• •

Search

Zoeken

Go to	Ga Naar
Home Up

Donate	Donaties
Did you find something helpful on my site? Consider a donation! Heeft u iets gevonden waar u wat aan had? Overweeg dan een donatie!

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):

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 dynamische plaatje maken

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

Figure 2, 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 3, Schermafdruk die het geplakte plaatje toont.

	Uiteraard is dit plaatje statisch. Om het dynamisch te maken kunnen we een formule gebruiken als de bron van het plaatje.
	Klik op het plaatje zodat het geselecteerd wordt. Klik dan één keer in de formule balk.
	Typ het gelijk teken, gevolgd door de naam "Picture" en druk op Enter:

Figure 4, screenshot showing the pasted picture's formula bar.

Selecteer nu cel A2 en tik één van de beschrijvingen uit de lijst in deze cel en druk op enter. Als het goed is, verandert het plaatje en wordt nu het bijbehorende plaatje getoond.

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

	Selecteer cel A2 en kies Data, Valideren... uit het menu.
	Kies uit de bovenste keuzelijst de optie "Lijst".
	Vul in het Bron vak deze formule in: =PictureList
	Indien nodig kunt u de velden op de andere tabs ook invullen ("Invoerbericht" en "Foutmelding")
	Klik OK: