Excelsheet header image based on cell value

[TJ86]

Hallo collega's,

ik zit met het volgende...

Is het mogelijk om een header image in "Blad3" te wijzigen dmv cell value in "Blad1"?

Dus als in blad 1 in cel A1 waarde A staat dat
de header afbeelding in blad 3 A.jpg wordt geladen
en als waarde B in A1 van blad 1 staat afbeelding B.jpg wordt geladen in blad 3?

Alvast dank!

TJ

 

[plongske]

Dit wordt wel gokken zonder voorbeeld bestandje

 

[roeljongman]

deze beschrijving zou kunnen helpen bij het maken van de oplossing.

http://www.zowerktexcel.nl/bewerken/het-maken-van-een-dynamische-afbeelding/

 

[TJ86]

Bekijk bijlage Map1.xlsxZie bijgaand voorbeeld bestand "Map 1.xlsx".

Blad 1 staat in A1 het dropdown menu met de keuzes
Blad Afbeeldingen heb ik even 2 random afbeeldingen gezet
Blad 3 moet bij afdrukweergave dus de juiste afbeelding in de header worden gezet

Bekijk bijlage Map1.xlsx

 

[HSV]

Zet de pictures op de harde schijf.

Private Sub Worksheet_Change(ByVal Target As Range)
Me.PageSetup.LeftHeader = "&G"
If Target.Address = "$A$1" Then Me.PageSetup.LeftHeaderPicture.Filename = "c:\users\TH86\pictures\map1\" & Target.Value & ".jpg"
End Sub

 

[TJ86]

Hoi HSV, wat gek, ik krijg het niet aan de praat! Wat doe ik fout?

 

[HSV]

Heb je het bestandspad aangepast?

 

[TJ86]

Super bedankt voor je snelle reactie! Ja, ik heb voor het gemak er zelfs "C:" van gemaakt en de bestanden "vhnl.jpg" en "prnl.jpg" ook daar geplaats. Ik heb de bestandsextensie ook gechecked.

 

[HSV]

Heb je de backslash ook achter de dubbele punt?
En wat staat er in cel A1?

 

[TJ86]

Ja, de backslash staat erachter en in A1 staat "vhnl"

 

[HSV]

En in je printvoorbeeld staat in de linker koptekst geen plaatje?

 

[TJ86]

Nee, dat is gewoon blanco. Heb ook al geprobeerd om er handmatig een afbeelding in te voegen in de hoop dat de afbeelding "gewijzigd" zou worden maar ook dag gebeurd niet..

 

[HSV]

Heb je de code in de bladmodule van toepassing geplaatst?

 

[TJ86]

Ik heb hem in de betreffende sheet geplaatst, niet als "module"

 

[HSV]

Zet met F9 eens een onderbrekingspunt op de eerste regel.
Verander cel A1 van waarde en druk op F8 om door de code te lopen.
Er komt geen foutmelding?

 

[TJ86]

Ook dat heb ik al geprobeerd. Foutopsporing in VB editor leverde ook niets op.. heb je niet toevallig een voorbeeld bestandje?

 

[HSV]

Hierbij een bestandje, maar ik denk niet dat het veel uithaalt.

 

[TJ86]

Nicee! This Works!! Vraag ik teveel als dit ook mogelijk is met 2 keuze menus? Dus keuzemenu 1 me waarden Bloemen/Strand en keuzemenu 2 met waarden Kleur/Zwart-Wit?

Zie bijgevoegd bestand.

Ik heb de uitkomst in cel E5 laten verschijnen of zodat ik de macro naar cel E5 zou kunnen laten verwijzen, maar volgens mij trapt excel niet in die truc en leest de waarde in cel 5 niet alszijnde de waarde die wordt weergegeven maar enkel als formule.

Beetje raar omschreven maar ik denk dat bijgaand bestandje duidelijkheid verschaft.

Bekijk bijlage TJ86_2.xlsm


Thx!

 

[HSV]

Probeer dit maar eens.
Cel E5 is hiermee overbodig.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Address
 Case "$B$5"
  Range("c5").ClearContents
 Case "$C$5"
  Me.PageSetup.CenterHeader = "&G"
  Me.PageSetup.CenterHeaderPicture.Filename = "C:\" & Range("B5") & "_" & Target.Value & ".jpg"
End Select
Application.EnableEvents = True
End Sub

 

[TJ86]

Hoi Harry, goedemorgen,

ik heb geprobeerd, maar krijg jouw laatste optie niet aan de praat.

Heeft het ermee te maken dat ik de code in het tabblad "Klantgegevens"? De Header moet namelijk verschijnen in het tabblad "Calculatieblad". Dat

Me.PageSetup

lijkt me niet juist dan in deze of wel ?