Jump to content

Insertar imagen cambiando sus proporciones


Recommended Posts

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

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy