Importar imagen

hola, Ivan !

... importar a la hoja ... una imagen desde Mis Imagenes, dependiendo ... de la celda A1
... ejemplo si A1, ir a buscar la imagen llamada "15" y mostrarla a partir de la celda F1
... que ... pueda estar cambiando dependiendo del valor de la celda A1),
... controlar el zoom de dicha imagen.

suponiendo que el formato de [todas] las imagenes es 'JPG'
y deseas que la imagen quede 'enmarcada' dentro del rango 'F1:H21'...
prueba con el codigo de ejemplo y... ¿comentas?

saludos,
hector.
en el modulo de codigo de 'la hoja' ==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:\Mis imagenes\" & [a1] & ".jpg"
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