Ocultar y mostrar Imagenes

[JOA]

Buen dia amigos espero me puedan ayudar en mi hoja de excel tengo tres
imagenes en la cual quiero mandarle una condicion en la cual se cumpla me
mande la imagen 1 si es la otra condicion la imagen 2 y si no la imagen 3, a
ver si me puede ayudar en esto.(al mostrar una que se oculte las otras 2)

Saludos,

Jhony Otero

[Héctor Miguel]

hola, Jhony !

... en mi hoja... tengo tres imagenes... quiero...
una condicion... se cumpla me mande la imagen 1
si es la otra condicion la imagen 2 y si no la imagen 3
...(al mostrar una que se oculte las otras 2)

vamos a suponer que "la condicion" es que la celda "A1" contenga alguna de las siguientes "condiciones"...
A -> se muestra el Picture1
B -> se muestra el Picture2
C -> se muestra el Picture3 (ok ?)

1) haz un clic-secundario en la etiqueta con el nombre de "la hoja" y seleccionas -> "ver codigo"

2) en el modulo de codigo que se muestre en el editor de vba. copia/pega las siguientes instrucciones:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Me.Pictures(1).Visible = [a1] = "A"
Me.Pictures(2).Visible = [a1] = "B"
Me.Pictures(3).Visible = [a1] = "C"
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

[JOA]

doctor hice lo que me indicates
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$b$2" Then Exit Sub
Me.Imagen 1.Visible = [b2] = "2"
Me.Imagen 2.Visible = [b2] = "3"
Me.Imagen 3.Visible = [b2] = "4"
End Sub

y me sale error de compilacion error de sintaxis

esos son los nombres definidos de mis imagenes a ver si me ayudas a ver
donde esta el error

[Héctor Miguel]

hola, Jhony !

... hice lo que me indicates
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$b$2" Then Exit Sub
Me.Imagen 1.Visible = [b2] = "2"
Me.Imagen 2.Visible = [b2] = "3"
Me.Imagen 3.Visible = [b2] = "4"
End Sub
y me sale error de compilacion error de sintaxis
esos son los nombres definidos de mis imagenes a ver si me ayudas a ver donde esta el error

1) para comparar el Target.Address debes utilizar mayusculas...
-> If Target.Address <> "$B$2" Then Exit Sub

2) los nombres-codigo de los "objetos" NO deben contener espacios
-> cambia esas tres instrucciones +/- a lo siguiente:

op1:
Me.Pictures("imagen 1").Visible = [b2] = 1
Me.Pictures("imagen 2").Visible = [b2] = 2
Me.Pictures("imagen 3").Visible = [b2] = 3

op2:
Me.Shapes("imagen 1").Visible = [b2] = 1
Me.Shapes("imagen 2").Visible = [b2] = 2
Me.Shapes("imagen 3").Visible = [b2] = 3

saludos,
hector.

[JOA]

MUCHAS GARCIAS AMIGO YA ME SALIO

Post by Héctor Miguel
hola, Jhony !

... hice lo que me indicates
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$b$2" Then Exit Sub
Me.Imagen 1.Visible = [b2] = "2"
Me.Imagen 2.Visible = [b2] = "3"
Me.Imagen 3.Visible = [b2] = "4"
End Sub
y me sale error de compilacion error de sintaxis
esos son los nombres definidos de mis imagenes a ver si me ayudas a ver donde esta el error

1) para comparar el Target.Address debes utilizar mayusculas...
-> If Target.Address <> "$B$2" Then Exit Sub
2) los nombres-codigo de los "objetos" NO deben contener espacios
Me.Pictures("imagen 1").Visible = [b2] = 1
Me.Pictures("imagen 2").Visible = [b2] = 2
Me.Pictures("imagen 3").Visible = [b2] = 3
Me.Shapes("imagen 1").Visible = [b2] = 1
Me.Shapes("imagen 2").Visible = [b2] = 2
Me.Shapes("imagen 3").Visible = [b2] = 3
saludos,
hector.