automatisch foto inladen met selectie functie?

[karimba]

beste deskundige,

ik ben bezig met een werkinstructie waar zodra je een selectie vakje selecteert
dat de foto automatische word ingeladen.
dan zodra er een andere selectie vakje wordt geselecteerd word de eerste automatische uitgeschakeld?

wie kan mij hierbij helpen.?

alvast dank voor jullie hulp.

 

[edmoor]

Gebruik keuzerondjes in plaats van selectievakjes.

 

[karimba]

Ik heb alles geprobeerd maar het is mij niet gelukt.het belangrijkste voor me hier is dat zodra ik het selecteer komt de foto tevoorschijn.

 

[edmoor]

Kijk eens naar dit simpele voorbeeldje:
http://s000.tinyupload.com/?file_id=00820896831341526792

(Voorbeeldje.xlsm)

 

[karimba]

dank je wel voor de tip maar mijn bedoeling is dat de foto's ingeladen worden vanaf station C:




;

 

[edmoor]

Ok, zie voorbeeldje:
Bekijk bijlage Voorbeeldje.xlsm

Zorg ervoor dat je foto's in dezelfde map staan als het Excel bestand.
Uiteraard kan je dat aanpassen.

 

[karimba]

top! ik ga deze voorbeeld uitproberen dan kom ik er op terug.
Dank je wel voor je hulp.

 

[karimba]

Goedenavond Edmoor,

Bedankt voor je reactie en bestand.
Dit is helaas nog niet wat ik zoek.Wat ik bedoel is dat ik zodra ik een instructie selecteer dat er dan een foto verschijnt aan de hand van
de waarde van de cell H6 (fotonaam).
Hoop dat je mij hierbij kan helpen.

 

[edmoor]

M'n voorbeeld doet precies dat, maar zal je uiteraard aan eigen pad- en bestandsnaamgeving moeten aanpassen.
Zoals de naam uit H6.

 

[karimba]

Sorry man ik heb exact gedaan wat je hebt aangegeven maar helaas is het mij niet gelukt,
ik heb meer 200 instructies die ik wil oproepen naar excel via H6.

 

[edmoor]

Als je inderdaad al die selectievakjes hebt vervangen door keuzerondjes die qua naamgeving opeenvolgend zijn genummerd en naar de juiste macro verwijzen wil ik er in dat document wel even naar kijken.

 

[jkpieterse]

Kan je niet beter één dropdowntje gebruiken (of beter nog een cel met gegevensvalidatie), dan heb je er maar een nodig in plaats van honderden keuzerondjes (want dat gaat je een onderhoudsnachtmerrie opleveren)?

 

[karimba]

hai excuus voor me late reactie
lig plat thuis.

ik heb de keuzerondjes gebruikt in het bestand maar kom er niet echt uit,
kun je mij wat meer uitleggen. en dropdowntje gebruiken is denk ik niet handig om mee te werken( kan je mij een voorbeeld sturen dan kan ik dat bekijken)
ik heb de onderstaande code gebruikt.
maar deze werkt niet echt naar behoren.

nogmaals dank voor jullie hulp.


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$6" Then
Dim locatie As String, naam As String, bestandsnaam As String
locatie = "C:\Users\Henk\Desktop\project Henk"
naam = Range("I6") & ".jpg"
bestandsnaam = locatie & naam
On Error GoTo einde
Image1.Picture = LoadPicture(bestandsnaam)
Image1.PictureSizeMode = 1
Exit Sub
einde:
MsgBox "Geen foto gevonden met die naam " & vbLf & "Probeer het opnieuw", vbCritical, "Jammer"
End If
End Sub

 

[edmoor]

Plaats je document zoals deze nu is.
In de code die je in #13 laat zien mis je wel een \ teken:

locatie = "C:\Users\Henk\Desktop\project Henk[COLOR="#FF0000"]\[/COLOR]"

 

[karimba]

goedenavond edmoor

dat heb je goed gezien top :thumb: het heeft wel gewerkt maar pas als ik 2x op H6 klik en enter in toets dan verschijnt pas de beeld.
is er een mogelijkheid dat je zodra je selecteert gelijk beeld krijgt.

 

[edmoor]

Dat komt omdat het Change event dan niet optreedt.
Probeer deze maar eens:
Bekijk bijlage Test A.xlsm

 

[karimba]

Ik heb jouw bestand uitgeprobeerd en het werkt alleen als ik op (ALT+F8) klik en op uitvoeren .hoe kan dit?
nogmaals dank.

 

[edmoor]

Hier werkt het gewoon als er op een keuzerondje geklikt wordt.
Maar je hebt nog niet de macro aan alle keuzerondjes gekoppeld.

 

[karimba]

echt top man, jij bent echt een master super dank. is helemaal gelukt:thumb:

 

[edmoor]

Ok dan