Met activeX element afbeekding laten verschijnen in werkblad

[markdehaan]

Goedemiddag,

Ik heb een excel document met op blad 1(invoer) een combobox activeX element.
Op blad 2 heb ik 4 plaatjes staan met als benaming de waarden van de combobox.

aan de combobox heb ik de onderstaande code gegeven.


Dim pic As Shape
For Each pic In Sheets("invoer").Shapes
If pic.Type = 13 Then pic.Delete
Next
Sheets("data").Shapes(ComboBox1.Value).Copy
Range("h5").PasteSpecial xlPasteAll
Range("c10").Select



Wanneer ik nu een keuze maak verschijnt het plaatje netjes in cel H5. tot nu toe alles prima dus.

Ik loop er alleen tegenaan dat hij door de regel " If pic.Type = 13 Then pic.Delete " al mijn plaatjes op het blad verwijdert.

mijn wens is om alleen de afbeelding weg te halen die ik door een eerdere keuze al in cel h5 had gezet.
De verdere opmaak aan plaatjes moet blijven staan.

Iemand een idee hoe ik dit voor elkaar krijg?

 

[snb]

Geen bestand toegevoegd ?

 

[markdehaan]

Bij deze.

 

[snb]

Private Sub workbook_open()
  Blad2.cb_kiesfoto.List = Blad1.Range("Fotos").Value
End Sub

Private Sub cb_kiesfoto_Change()
    For Each pic In Blad2.Shapes
        If pic.Type = 13 Then pic.Delete
    Next
    Sheets("Fotos").Shapes(cb_kiesfoto.Value).CopyPicture 2
    
    Blad2.Cells(1).Select
    Blad2.Paste
End Sub