18/08/2010, 15:15
|
| | | Fecha de Ingreso: agosto-2010
Mensajes: 8
Antigüedad: 13 años, 8 meses Puntos: 0 | |
| Respuesta: ocultar y mostrar imagenes en excel
también he provado este otro comando, pero solo me funciona con la primera imagen, las demás ni caso :(:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$13" Then
If Range("D13").Value <> "trainspotting" Then
ActiveSheet.Shapes("Imagen 189").Visible = False
If Target.Address = "$F$13" Then
If Range("F13").Value <> "american beauty" Then
ActiveSheet.Shapes("Imagen 190").Visible = False
If Target.Address = "$H$13" Then
If Range("H3").Value <> "lolita" Then
ActiveSheet.Shapes("Imagen 191").Visible = False
End If
Else
ActiveSheet.Shapes("Imagen 191").Visible = True
End If
Else
ActiveSheet.Shapes("Imagen 190").Visible = True
End If
End If
Else
ActiveSheet.Shapes("Imagen 189").Visible = True
End If
End If
End Sub |