Saltar al contenido

Insertar imagen cambiando sus proporciones

publicado

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

Featured Replies

publicado

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]

publicado
  • Autor

Perfecto, eres un máquina.

Si te puedo ayudar en algo dimelo.

Muchas gracias, puedemos cerrar el tema como solucionado.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.