como cambiar imagen, segun valor de una celda?

"Jose Luis A.T." <Jose Luis escribió en el mensaje news:

Como se puede cambiar una imagen de mapa de bit en una hoja, dependiendo del
valor de una celda?

Prueba con el siguiente código, que va en el módulo de la hoja (click derecho sobre su etiqueta->Ver código) y cuyo autor es Héctor Miguel (yo lo he modificado lo necesario para que procese ficheros BMP):


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
De_donde = "C:\" & [a1] & ".bmp" 'Aquí va la ruta donde están las imágenes
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:h21")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub


En la instrucción que comienza con De_donde tienes que establecer la ruta donde están las imágenes, por ejemplo:

De_donde = "C:\imagenes\" & [a1] & ".bmp"

Un saludo.



Fernando Arroyo
MS MVP - Excel