Con este código
Código:
Dim Direccion As String
Dim valor As Integer
Dim Cambiar As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
valor = Range("A1").Value
If valor = 0 And CheckBox2 = True Then
ActiveSheet.Shapes("Imagen 52").Visible = False
ActiveSheet.Shapes("Imagen 51").Visible = False
ActiveSheet.Shapes("Imagen 50").Visible = False
ElseIf CheckBox2 = True And valor >= 1 And valor < 100 Then
ActiveSheet.Shapes("Imagen 52").Visible = True
ActiveSheet.Shapes("Imagen 51").Visible = False
ActiveSheet.Shapes("Imagen 50").Visible = False
ElseIf CheckBox2 = True And valor >= 100 And valor < 200 Then
ActiveSheet.Shapes("Imagen 52").Visible = False
ActiveSheet.Shapes("Imagen 51").Visible = True
ActiveSheet.Shapes("Imagen 50").Visible = False
ElseIf CheckBox2 = True And valor > 200 Then
ActiveSheet.Shapes("Imagen 52").Visible = False
ActiveSheet.Shapes("Imagen 51").Visible = False
ActiveSheet.Shapes("Imagen 50").Visible = True
Else
ActiveSheet.Shapes("Imagen 52").Visible = False
ActiveSheet.Shapes("Imagen 51").Visible = False
ActiveSheet.Shapes("Imagen 50").Visible = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub
juego con unas imágenes el problema está en que cuando el checkbox2 esta false no desaparecen automáticamente las imágenes sino que tengo que situarme en A1 y modificar el contenido de la celda, y lo mismo al revés si activo el checkbox no me aparece autómáticamente la imágen correspondiente sino que tengo que ir a A1 y modificarla.Muchas gracias