问无论如何，以编程方式优化pdf？

EN

import os
import asposepdfcloud
from asposepdfcloud.apis.pdf_api import PdfApi
from shutil import copyfile

# Get App key and App SID from https://cloud.aspose.com
pdf_api_client = asposepdfcloud.api_client.ApiClient(
    app_key='xxxxxxxxxxxxxxxxxxxxxxxxxx',
    app_sid='xxxxx-xxxx-xxxx-xxxx-xxxxxxxx')

pdf_api = PdfApi(pdf_api_client)
temp_folder="Temp"

#upload PDF file to storage

data_file = "C:/Temp/02_pages.pdf"
remote_name="02_pages.pdf"
result_name="02_pages_compressed.pdf"

pdf_api.upload_file(temp_folder + '/' + remote_name,data_file)

optimize_options = asposepdfcloud.models.OptimizeOptions(
                allow_reuse_page_content=False,
                compress_images=True,
                image_quality=100,
                link_duplcate_streams=True,
                remove_unused_objects=True,
                remove_unused_streams=True,            
                unembed_fonts=True)
opts = {
            "options" : optimize_options,
            "folder" : temp_folder
        }

response = pdf_api.post_optimize_document(remote_name, **opts)

#download PDF file from storage
response_download = pdf_api.download_file(temp_folder + '/' + remote_name)
copyfile(response_download, 'C:/Temp/' + result_name)
print(response)

Sub gsPDF_Bat()
  
    'Summary of -dPDFSETTINGS:

    '-dPDFSETTINGS=/screen lower quality, smaller size. (72 dpi)
    '-dPDFSETTINGS=/ebook for better quality, but slightly larger pdfs. (150 dpi)
    '-dPDFSETTINGS=/prepress output similar to Acrobat Distiller "Prepress Optimized" setting (300 dpi)
    '-dPDFSETTINGS=/printer selects output similar to the Acrobat Distiller "Print Optimized" setting (300 dpi)
    '-dPDFSETTINGS=/default selects output intended to be useful across a wide variety of uses, possibly at the expense of a larger output file
      
    Dim ProofsFolder As String
    Dim CompressFolder As String
    Dim exePath As String

    exePath = "C:\Program Files\gs\gs9.54.0\bin\"

    ' Open the select folder prompt
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then ' if OK is pressed
            ProofsFolder = .SelectedItems(1)
        End If
    End With
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then ' if OK is pressed
            CompressFolder = .SelectedItems(1)
        End If
    End With
        
    Dim fso As Object
    Dim folder As Object
    Dim CurrFile As Object

  
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(ProofsFolder)
       
    Open ProofsFolder & "\gsPDF-Compress.bat" For Output As #1
       
    For Each CurrFile In folder.Files
        FName = CurrFile.Name
        CurrFileExt = Right(FName, 4)
            Debug.Print CurrFileExt

            If CurrFileExt = ".pdf" Then

                backNum = InStrRev(CurrFile, "\", -1)
                FName = Mid(CurrFile, (backNum + 1))

                Print #1, exePath & "gswin64 -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dAutoRotatePages=/None -r300 -dUseCIEColor -sOutputFile=""" & CompressFolder & "\" & FName & """ """ & CurrFile & """"
            End If
    Next
    Close #1

    Set fso = Nothing
    Set folder = Nothing
End Sub