Insertar imagen cambiando sus proporciones

[Carri]

Buenas tardes

Tengo una pequeña Macro en VBA en la que registro un inventario y en una celda me inserta la imagen asociada a un código. Lo que necesito es que la imagen o se centre en la celda o se redimesione para ocupar la totalidad de la celda.

La Macro creo que la descargué de un enlace de Macro Antonio y la he adaptado a mis necesidades, pero me he quedado estancado en lo de la foto.

Prueba2.rar

[Antoni]

Bueno, parece que ahora si, cambia la parte de código siguiente en el evento CommandButton3_Click():

On Error Resume Next

ActiveSheet.Shapes("Foto" & ActiveCell.Row).Delete

ActiveSheet.Pictures.Insert(nombreArchivo).Select

With Selection

        .Name = "Foto" & ActiveCell.Row

        .ShapeRange.LockAspectRatio = False  '<==

        .Width = Ancho - 2   

        .Height = Alto - 2    

        .Top = Ubicacion + 1 

        .Left = Izquierda + 1

End With

Set Lacelda = Nothing



[/CODE]

[Carri]

Perfecto, eres un máquina.

Si te puedo ayudar en algo dimelo.

Muchas gracias, puedemos cerrar el tema como solucionado.