Foto in Userform

[Jack Nouws]

Hallo

Ik heb een userform met daarin een combobox1 en een image1 vak.
Dmv van de combobox wil ik een keus uit een aantal foto's maken die in een werkblad staan.
Mijn vraag is, hoe moet ik de code aanspreken om die in het userform te tonen?
Met deze code heb ik geprobeerd, maar zonder succes.
Wie weet de oplossing?

Private Sub C2_Change()
  Image1.Picture = Worksheets("Blad2").Shapes("Afbeelding 1").Visible =true
End Sub

Met vr gr
Jack

 

[snb]

Je kunt alleen bestanden laden in een afbeeldingsobject in een userform.

Private Sub C2_Change()
  Image1.LoadPicture = "E:\foto1.jpg"
End Sub

 

[Warme bakkertje]

Deze moet je makkelijk kunnen ombouwen

 

[Jack Nouws]

Heren,
Bedankt voor de suggesties.:thumb::thumb:
De code die ik wil gebruiken komt uit een topic die Roncancio heeft behandeld.
Mijn dank hier voor.
Zie hier de code die ik momenteel gebruik.

Const sDir = "F:\Foto's\Acers\"
Private Sub C2_Change()
  Image1.Picture = LoadPicture(sDir & C2.Value & ".jpg")
End Sub

Met vr gr
Jack