imagenes en excel con macros

[sysq]

Saludos amigos foreros, os escribo para ver si entre todos me podeis hechar un cable, he leido posts parecidos, pero mi duda es diferente, segun un valor en una celda, quiero que aparezca una imagen u otra, las imagenes van a estar en la misma hoja, y quiero que esten ocultas, solo que aparezca la que el nº de celda está, aqui os paso lo que he hecho...

Dim Direccion As String
Dim Cambiar As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)

Valor = Range("K3").Value
If Valor > 100 Then
ActiveSheet.Shapes("Imagen 7").Visible = False
ActiveSheet.Shapes("Imagen 9").Visible = False
ActiveSheet.Shapes("Imagen 11").Visible = False
ActiveSheet.Shapes("Imagen 13").Visible = False
ActiveSheet.Shapes("Imagen 15").Visible = False
ActiveSheet.Shapes("Imagen 17").Visible = False
ActiveSheet.Shapes("Imagen 19").Visible = False
ElseIf Valor = 1 Then
ActiveSheet.Shapes("Imagen 7").Visible = True


ElseIf Valor = 2 Then
ActiveSheet.Shapes("Imagen 9").Visible = True

ElseIf Valor = 3 Then
ActiveSheet.Shapes("Imagen 11").Visible = True

ElseIf Valor = 4 Then
ActiveSheet.Shapes("Imagen 13").Visible = True

ElseIf Valor = 5 Then
ActiveSheet.Shapes("Imagen 15").Visible = True

ElseIf Valor = 6 Then
ActiveSheet.Shapes("Imagen 17").Visible = True


Else
ActiveSheet.Shapes("Imagen 19").Visible = True

End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub

muchas gracias!!

[mrocf]

Solo un ligero cambio a tu macro y un reemplazo del "if-then-else-end if" por "select case-end select":

Código:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$K$3" Then Exit Sub
Valor = Range("K3").Value
On Error Resume Next
    ActiveSheet.Shapes.SelectAll
    Selection.Visible = False
On Error GoTo 0

Select Case Valor
Case 1
    ActiveSheet.Shapes("Imagen 7").Visible = True
Case 2
    ActiveSheet.Shapes("Imagen 9").Visible = True
Case 3
    ActiveSheet.Shapes("Imagen 11").Visible = True
Case 4
    ActiveSheet.Shapes("Imagen 13").Visible = True
Case 5
    ActiveSheet.Shapes("Imagen 15").Visible = True
Case 6
    ActiveSheet.Shapes("Imagen 17").Visible = True
Case Else
    ActiveSheet.Shapes("Imagen 19").Visible = True
End Select

End Sub

Te hago notar que tu programa señala que si K3 > 6, se visualiza la "Imagen 19".
Pero si lo que -en realidad- quieres es que tal imagen se visualice cuando K3 = 7, debes reemplazar:

Case Else

por:
Case 7

Saludos

[sysq]

Muchas Gracias, Pero El Problema Que Ocurre Ahora, Es Que Por Ejemplo El Valor De K3 Vale 5, Y A Continuacion 2, "queda Tapado Por La Imagen 5 Al Ser Posterior" Lo Que Quisiera, Es Q Solo Se Viese La Imagen Activa Por La Casilla, Las Otras Ocultas.... Alguna Sugerencia???

Gracias!!!

Pd Es Posible Tener El Valor De K3 En Otra Hoja???

[mrocf]

Observa Sysq: El código

On Error Resume Next
ActiveSheet.Shapes.SelectAll
Selection.Visible = False
On Error GoTo 0

oculta TODAS las imágenes de la hoja... por lo que SIEMPRE se visualiza una sola imagen.

En cuanto a visualizar imágenes de otra hoja, intenta reemplazar:
ActiveSheet.Shapes

por
Sheets("nombre de la hoja").Shapes

Saludos