Find Jobs
Hire Freelancers

VBA Code to health check and Apply Compression on .jpg files -- 2

$10-30 USD

Terminado
Publicado hace más de 7 años

$10-30 USD

Pagado a la entrega
I have a MS access Developed Database where part of it users open a dialog box and choose .jpg files to be copied and renamed to different location, I Need VBA Code to health check these .jpg files and Apply Photo Compression them. without loosing much of the quality... slimier example of original photos b4 compression and after is below.
ID del proyecto: 11745206

Información sobre el proyecto

5 propuestas
Proyecto remoto
Activo hace 7 años

¿Buscas ganar dinero?

Beneficios de presentar ofertas en Freelancer

Fija tu plazo y presupuesto
Cobra por tu trabajo
Describe tu propuesta
Es gratis registrarse y presentar ofertas en los trabajos
Adjudicado a:
Avatar del usuario
Hi ... you can download the files from: [login to view URL] to check the healthy of image ; you can use the following function: Public Function IsImageCorrupted(img As String) As Boolean On Error GoTo Handler Dim myImage As Object Set myImage = LoadPicture([login to view URL] & "\" & img) myImage = Nothing IsImageCorrupted = False Handler: If [login to view URL] = 481 Then IsImageCorrupted = True End If End Function to compress the jpg image; I have a compressor using c++ ; I am using it in VBA : Public Declare Function my_compress Lib "D:\Freelancer\acc_image\cpp01\Debug\[login to view URL]" (imgPath As String, imgNewPath As String, ByVal compressLevel As Long) As Integer then: Public Function CompressImage(imgPath As String, imgNewPath As String, compressLevel As Long) As Boolean Dim result As Long Dim i_local_Path As String Dim i_local_NewPath As String i_local_Path = StrConv(imgPath, vbUnicode) i_local_NewPath = StrConv(imgNewPath, vbUnicode) result = my_compress(i_local_Path, i_local_NewPath, compressLevel) CompressImage = False If result = 1 Then CompressImage = True End Function I have test it ; it is working ok ... BEST WISHES ....
$25 USD en 1 día
5,0 (2 comentarios)
1,9
1,9
5 freelancers están ofertando un promedio de $43 USD por este trabajo
Avatar del usuario
Looking forward to discuss more details about the project and deliver the same to your specifications.
$88 USD en 4 días
4,9 (37 comentarios)
5,7
5,7
Avatar del usuario
Hello, I have been working as freelancer since last ~ 3 years,prior to this was working with a MNC as an Sr. Software Professional. The project is Product based development and integration of the product with various already existing Products and processes.. Below are some key areas of my skills: -- VBA and Excel,Word,Office Applications -- Expert on C# using .NET framework using Visual Studio 2012 and 2013 -- Expert in ASP.NET,MVC -- Expert in VB.NET using VS2012/VS2013 -- WPF and Windows Forms Application I have experience in all the above areas and during my project work I have completed all of the above tasks. As a Freelancer also I have worked in few of the above areas where I got a chance and delivered the best. Delivering best & Customer satisfaction is the key for any individual and I always worked keeping these things during project execution. Would be looking forward to work on this opportunity and will ensure to deliver best. Regards, Abhinov
$35 USD en 2 días
4,8 (43 comentarios)
5,1
5,1
Avatar del usuario
I have bachelor and master degrees in IT. My Primary skills include Java, Python, VB/.NET, ArcGIS, and PHP. Also database skills include MS Access, MySQL, and Oracle. My Other skills include server and network administration and maintenance with Linux/Unix and Windows Networking.
$30 USD en 3 días
4,9 (36 comentarios)
4,7
4,7
Avatar del usuario
I have Understood the Requirement . And with better compression Technique. . Can Implement the Same with better technology as u required .
$35 USD en 1 día
5,0 (2 comentarios)
2,0
2,0

Sobre este cliente

Bandera de AUSTRALIA
Burton, Australia
5,0
13
Forma de pago verificada
Miembro desde may 6, 2016

Verificación del cliente

¡Gracias! Te hemos enviado un enlace para reclamar tu crédito gratuito.
Algo salió mal al enviar tu correo electrónico. Por favor, intenta de nuevo.
Usuarios registrados Total de empleos publicados
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Cargando visualización previa
Permiso concedido para Geolocalización.
Tu sesión de acceso ha expirado y has sido desconectado. Por favor, inica sesión nuevamente.