afbeelding laten zien met combobox

[sickofitall]

Hallo

ik heb een combo-box met bvb afbeelding 1; afbeelding2; afbeelding3... erin en als ik 1 van deze selecteer wil ik dit naast de combobox zien verschijnen.
De afbeeldingen zelf staan ergens bijgehouden in een ander werkblad.
Ik heb dit ooit eens ergens gezien in een excelbestand maar ik vind dit niet meer op internet.

Weet iemand hoe ik dit moet doen? of een klein voorbeeldje delen?
alvast bedankt!

 

[snb]

Prima idee om je document hier te plaatsen !

 

[sickofitall]

zie bijlage

op sheet 2 staan 3 afbeeldingen, genaamd picture1, picture2, picture3.

die zouden in het vak op sheet 1 moeten komen dmv de combobox...

alvast bedankt!Bekijk bijlage helpmij.xls

 

[snb]

Als je een activeX combobox gebruikt wordt het eenvoudiger:

Sub Combobox1_Change()
    Sheets("sheet2").Pictures(Sheets("sheet1").combobox1.value).CopyPicture
    Sheets("sheet1").Paste Sheets("sheet1").Cells(3, 9)
End Sub

 

[sickofitall]

Hmm, bedankt maar ik wil ActiveX zoveel mogelijk vermijden...

Kan ik de volgende macro niet hangen aan mijn Form-Combobox?

Sub show_pictures()
    Sheets("sheet2").Pictures(Sheets("sheet1").Range("I3").Value).CopyPicture
    Sheets("sheet1").Paste Sheets("sheet1").Cells(3, 9)
    
End Sub

maar Excel geeft een fout op deze macro namelijk: 'Unable to get the Pictures property of the worksheet class"...

alvast bedankt voor de hulp!

 

[sickofitall]

Het is gelukt (zonder ActiveX)

Dit is mijn huidige macro:

Sub insert_ster_schema()

Mypic = Sheets("sterschemas").Range("D1").Value

'Delete bestaande pictures in HLD
'--------------------------------
Dim DrObj
Dim Pict
Set DrObj = Sheets("HLD").DrawingObjects
For Each Pict In DrObj
If Left(Pict.Name, 7) = "Picture" Then
Pict.Select
Pict.Delete
End If
Next

'Add sterschema aan HLD
'----------------------
    Sheets("sterschemas").Pictures(Mypic).Copy
    
    Sheets("HLD").Paste Sheets("HLD").Cells(11, 2)
   
End Sub