VBA: Macro voor plaatsen van Afbeeldingen

[CJB1992]

Beste,

In de bijgevoegd sheet zit in Blad 1 een tabelletje met nummers, de namen van de afbeeldingen en de afbeeldingen zelf. In Blad 2 zitten diezelfde nummers en een formule die de naam van de afbeelding opvraagt.

Nu wil ik graag dat op de naam van de afbeelding (Blad 2), de afbeelding verschijnt. De afbeelding moet wijzigen als ik het getalletje wijzig en dus de naam van de afbeelding veranderd. De optie 'Camera' heb ik al geprobeerd en geeft niet het juiste resultaat.

Ik heb dit even snel opgezet in een testsheet. Het is de bedoeling dat dit in een vrij grote ingewikkelde sheet gaat draaien, de toepassing is echter niet anders als in de test sheet. Min of meer wil ik graag een afbeelding plaatsen door middel van het benoemen van de naam.

Diverse pogingen van mij in VBA zijn helaas mislukt, dit komt vooral omdat ik niet/bijna niet kan programmeren in VBA .

Wie kan/wil mij hierbij helpen?

Groet,

CJ

ps. Lijst met macro's die ik geprobeerd heb aan te passen/te gebruiken:
http://www.mcgimpsey.com/excel/lookuppics.html
http://www.jkp-ads.com/articles/ShowPicture00NL.asp
https://www.youtube.com/watch?v=MzF_5DXhqbs

 

[JeanPaul28]

Kan je met deze test iets

 

[Warme bakkertje]

Ge moet dan wel deze regel

Worksheets("Blad1").Shapes("Picture " & .Value).Copy

wijzigen in deze

Worksheets("Blad1").Shapes("Afbeelding " & .Value).Copy

anders gaat het niet werken.

 

[JeanPaul28]

@Rudi bedankt voor de tussenkomst, bij mij werken beide ligt misschien aan mijn versie 2003

 

[CJB1992]

Bedankt tot zover, ik ga even kijken of ik dit aan de praat krijg.