Visual Basic para Aplicaciones - Imágenes según valor de celda en otra hoja

Private Sub Worksheet_Change(ByVal Target As Range)

'Si hay errores, que continúe

On Error Resume Next

'Si cambiamos el dato de la celda X, mostramos la foto de ese Clan

If Target.Cells = Range("E24") Then

'Ocultamos el procedimiento

Application.ScreenUpdating = False

'Pasamos a una variable, el nombre de la foto,

'que será el mismo que el nombre del Clan

imagen = Range("E24").Value

'Añadimos la extensión "png"

imagen = imagen & ".png"

'Buscamos la foto en el mismo directorio

'donde tenemos este fichero de Excel

ruta = ActiveWorkbook.Path & "\clanes\" & imagen

'Borramos la foto del Clan (si hubiera alguna)

Me.Shapes("imagen_clan").Delete

'Creamos el objeto fotografia, con la foto insertada

Set clan = Me.Pictures.Insert(ruta)

'Haremos que la foto ocupe desde X hasta X,

'para que no salgan fotos supergrandes, o

'superpequeñas, y salgan más "normalitas"

With Range("Z9:AH25")

Arriba = .Top

Izquierda = .Left

Ancho = .Offset(0, .Columns.Count).Left - .Left

Alto = .Offset(.Rows.Count, 0).Top - .Top

End With

'Le ponemos un nombre al objeto "clan"

'para poder borrarlo cuando cambie la celda X

'(Ver que borramos la foto que hubiese, antes de insertar la nueva)

With clan

.Name = "imagen_clan"

.Top = Arriba

.Left = Izquierda

.Width = Ancho

.Height = Alto

End With

'Eliminamos el objeto

Set clan = Nothing

'Ponemos todo como estaba

Application.ScreenUpdating = True

End If

End Sub