reduce pdf file size / compress pdf file size through Macro VBA

[prati]

Hey,

I wonder if there is a way to reduce pdf file size through Macro VBA.
I don't have Adobe Acrobat Professional, so I need a free way to achieve this goal.
I know two software's that can reduce pdf file size for free.

First software - Free PDF Compressor

Below are the files of the program - the program has main dll files gsdll32.dll and gswin32c that make the compression

Below is the main window of the program

Second software - Compress PDF - Reduce pdf size easily - Free PDF Compressor

Below are the files of the program - the program has several dll files

Below is the main window of the program

The question is how can I use one to the above programs through VBA In order to reduce pdf file size and not through the graphical / user-friendly interface.

Any alternative free way to reduce pdf file size only through VBA plus a free software would be perfect as well

 

[prati]

Hey friends,
compressing pdf files with ghostscript does a much better job.

Public Sub Compress_Pdf_Ghostscript()

'options for quality:

'/screen selects low-resolution output similar to the Acrobat Distiller "Screen Optimized" setting.
'/ebook selects medium-resolution output similar to the Acrobat Distiller "eBook" setting.
'/printer selects output similar to the Acrobat Distiller "Print Optimized" setting.
'/prepress selects output similar to Acrobat Distiller "Prepress Optimized" setting.
'/default selects output intended to be useful across a wide variety of uses, possibly at the expense of a larger output file.

Dim FileCompress As String  

FileCompress = "C:\Temp\Article.pdf"

Dim wsh As Object 'WshShell
Set wsh = CreateObject("WScript.Shell")   'New WshShell
Dim  t1, t2, t3 As String
                           
t1 = "C:\PdfPrograms\ghost\gs9.54.0\bin\gswin32 -dNOPAUSE -dBATCH -sDEVICE=pdfwrite"
t2 = " -dCompatibilityLevel=1.4 -dPDFSETTINGS=/screen -dNOPAUSE -dQUIET -dBATCH -sOutputFile=C:\Temp\Article_Compressed.pdf" & " " & FileCompress
t3 = t1 & t2

'Debug.Print 3, t3
wsh.Run t3, 0, True

End sub