Comando para comprimir imágenes en excel
Hola que tal, me podrías ayudar para comprimir un una imagen en excel a través de un comando, actualmente tengo esto
Sub InsertaImagen()
Dim miFoto
ActiveSheet.Unprotect "1110"
' busca en el directorio el archivo de imagen a cargar
miFoto = Application.GetOpenFilename
'se selecciona la celda donde deba ser ubicada la imagen
ActiveSheet.Range("B6").Select
ActiveSheet.Pictures.Insert(miFoto).Select
'al estar seleccionada podes ajustar su tamaño
Selection.ShapeRange.ScaleWidth 1.75, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.29, msoFalse, msoScaleFromTopLeft
'a continuación la proteges
ActiveSheet.Protect "1110"
End Sub
1 Respuesta
Ocupa esta macro
Sub InsertaImagen()Dim miFotoActiveSheet.Unprotect "1110"' busca en el directorio el archivo de imagen a cargarmiFoto = Application.GetOpenFilename'se selecciona la celda donde deba ser ubicada la imagenActiveSheet.Range("B6").SelectActiveSheet.Pictures.Insert(miFoto).Select'al estar seleccionada podes ajustar su tamañoSelection.ShapeRange.ScaleWidth 1.75, msoFalse, msoScaleFromTopLeftSelection.ShapeRange.ScaleHeight 0.29, msoFalse, msoScaleFromTopLeftWith Selection .Placement = xlMoveAndSize .PrintObject = TrueEnd With'a continuación la protegesActiveSheet.Protect "1110", DrawingObjects:=False, Contents:=True, _ Scenarios:=False, AllowFormattingCells:=TrueEnd Sub
Prueba y me comentas
Saludos. DAM
Si es lo que necesitas.
