afbeelding koppelen aan cel in excel

[h-bo]

Hallo,

Wie kan mij helpen

hoop dat ik hier goed zit

Graag zou ik een foto (afbeelding) koppelen aan de waarde in een cel.

Als cel J18 een getal bevat die groter is dan 100 maar kleiner dan 130 moet er naast de cel een afbeelding uit de map c:\Afbeeldingen\ us.gif worden ingevoegd.

Maar als cel J18 een getal bevat die groter is dan 131 maar kleiner dan 150 moet er naast de cel een afbeelding uit de map c:\Afbeeldingen\ nederland.gif worden ingevoegd.

En als cel J18 een getal bevat die groter is dan 151 maar kleiner dan 180 moet er naast de cel een afbeelding uit de map c:\Afbeeldingen\ engeland.gif worden ingevoegd.

zelf heb ik de volgende code ik weet niet hoe ik hem kan aanpassen zodat ik fotos uit een map kan halen.

If Range("J18") >= 100 And Range("J18") <= 130 Then
ActiveSheet.Shapes("Picture 103").Visible = True
ActiveSheet.Shapes("Picture 104").Visible = False
ActiveSheet.Shapes("Picture 105").Visible = False

ElseIf Range("J18") >= 131 And Range("J18") <= 150 Then
ActiveSheet.Shapes("Picture 103").Visible = False
ActiveSheet.Shapes("Picture 104").Visible = True
ActiveSheet.Shapes("Picture 105").Visible = False
Else
ActiveSheet.Shapes("Picture 103").Visible = False
ActiveSheet.Shapes("Picture 104").Visible = False
ActiveSheet.Shapes("Picture 105").Visible = True

End If

Hoop dat iemand mij kan helpen.
groet h-bo

 

[danny147]

Beste h-bo

Zie bestandje

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets(1).Shapes.Range(Array("Picture 103", _
    "Picture 104", "Picture 105")).Visible = False
If Target.Address = "$J$18" Then
    ActiveSheet.Shapes("Picture 103").Visible = IIf(Target >= 100 And Target <= 130, True, False)
    ActiveSheet.Shapes("Picture 104").Visible = IIf(Target >= 131 And Target <= 150, True, False)
    ActiveSheet.Shapes("Picture 105").Visible = IIf(Target >= 151 And Target <= 180, True, False)
End If
End Sub

 

[danny147]

Beste Warme bakkertje

Is inderdaad korter, MAAR als ik in een andere cel iets typt verdwijnt de foto.
Raar maar waar ?

Aan wat kan dit liggen ?

Groetjes Danny. :thumb:

 

[h-bo]

Rudi,

bedankt voor je snelle reactie, maar ik krijg hem niet werkend.

als ik de code in een module plak kan ik hem niet opslaan, als ik het bestandje afsluit is de macro/-module verdwenen. kun je aangeven hoe ik deze code kan gebruiken.

vg h-bo

 

[Hoornvan]

De code moet achter het blad.
Klik met rechts op de tab en kies voor Programmacode weergeven en plak het daar.

Je kunt ook hier even kijken of het wat voor je is?

 

[danny147]

Beste h-bo

Rudi,

bedankt voor je snelle reactie, maar ik krijg hem niet werkend.

vg h-bo

Snelle reactie
De mijne had je al achter een uur
Er zit dan wel een foute in, maar dat kan verholpen worden.

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$18" Then
    Worksheets(1).Shapes.Range(Array("Picture 103", _
            "Picture 104", "Picture 105")).Visible = False
    ActiveSheet.Shapes("Picture 103").Visible = IIf(Target >= 100 And Target <= 130, True, False)
    ActiveSheet.Shapes("Picture 104").Visible = IIf(Target >= 131 And Target <= 150, True, False)
    ActiveSheet.Shapes("Picture 105").Visible = IIf(Target >= 151 And Target <= 180, True, False)
End If
End Sub

 

[danny147]

Beste Warme bakkertje

Met deze code lukt het.

Zonder de volgende regel gaat het ook waarom moet deze erin ?

    Worksheets(1).Shapes.Range(Array("Picture 103", _
            "Picture 104", "Picture 105")).Visible = False

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Hiermee verberg je eerst alle aanwezige afbeeldingen. Als al je afbeeldingen hetzelfde formaat hebben kan je deze weglaten, anders krijg je een opeenstapeling van afbeeldingen waarbij de ene komt piepen achter de andere.
Daarna haal je enkel de afbeelding op die voldoet aan een bepaalde voorwaarde