In excel dmv VBA afbeeldingen zichtbaar maken

[GJvD67]

Ik heb het hele forum en internet afgestruind om een oplossing te vinden maar zonder succes
Toch wel het 1 en ander gevonden met verschuiving maar daar snap ik helemaal niets van.
Wel een VBA script gevonden maar dat werkt maar gedeeltelijk, als ik handmatig de waarde in de cel (i42) invoer werkt het wel, maar het werkt niet op de uitkomst van cel h42.
De lachende smiley moet verschijnen als de waarde tussen de 0.1 en 0.75 ligt.
Is het anders dan moet de treurige smiley verschijnen.
Zelf geen kaas gegeten van VBA dus hoop dat er hier iemand zit die mij van hulp kan voorzien



Bekijk bijlage Map1.xls

 

[edmoor]

Ik zou dat helemaal niet met afbeeldingen doen maar gewoon een standaard Excel functie gebruiken die een J of een L in de cel zet. Het font van de cel zet je dan op Wingdings. Een J is een lachend gezichtje en een L een treurige.

 

[GJvD67]

Goed idee maar toch met VBA opgelost

Goede tip want die kende ik ook nog niet, werkt ook goed.

Maar wilde toch iets mooiers om in de toekomst diverse afbeeldingen afhankelijk van waarden te laten verschijnen.
Dat is mij uiteindelijk gelukt met onderstaande code:


Private Sub Worksheet_Calculate()
'
' Lachebekjes t.b.v. berekening
'
If Range("G43") = "" Then
Me.Shapes("Picture 21").Visible = False
Me.Shapes("Picture 22").Visible = False
End If
If Range("G43") = "Slecht" Then
Me.Shapes("Picture 21").Visible = False
Me.Shapes("Picture 22").Visible = True
End If
If Range("G43") = "Goed" Then
Me.Shapes("Picture 21").Visible = True
Me.Shapes("Picture 22").Visible = False
End If
End Sub

Die heb ik gepikt uit een bestand wat ik ergens opgedoken heb, deze erbij gedaan misschien heeft iemand anders hier nog wat aan.