Afbeeldingen tonen op basis van waarde cel

[erpee]

Ik wil graag afbeeldingen tonen op basis van de waarde van cel B11. Wijzigt de waarde van B11, dan moet de corresponderende afbeelding getoond worden.

0-20 eerste afbeelding
>20-70 tweede afbeelding
hoger dan 70 derde afbeelding

Grootste deel werkt goed echter als ik onder de 10 kom lijkt 'ie random afbeeldingen te pikken.

Waar ga ik de fout in?

(zit een knop bij om alle afbeeldingen tevoorschijn te halen.)

 

[edmoor]

Maak er eens dit van:

Sub SetPicture()
    With ActiveSheet
        Select Case Range("B11").Value
            Case 0 To 20:   img = 4
            Case 21 To 70:  img = 2
            Case Else:      img = 5
        End Select
        .Shapes.Range("Picture 2").Visible = False
        .Shapes.Range("Picture 4").Visible = False
        .Shapes.Range("Picture 5").Visible = False
        .Shapes.Range("Picture " & img).Visible = True
    End With
End Sub

 

[erpee]

Werkt mooi.
Mooi geschreven code trouwens, hou ik van.

 

[edmoor]

Kan nog een stukje mooier

Sub SetPicture()
    Select Case Range("B11").Value
        Case 0 To 20:   img = 4
        Case 21 To 70:  img = 2
        Case Else:      img = 5
    End Select
    
    With ActiveSheet.Shapes
        .Range("Picture 2").Visible = False
        .Range("Picture 4").Visible = False
        .Range("Picture 5").Visible = False
        .Range("Picture " & img).Visible = True
    End With
End Sub