VBA 导出到 PDF 会生成一个非常大的 PDF 文件

Question

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:="file_path", _
    Quality:=xlQualityMinimum, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

我正在尝试使用 VBA 将 Excel 工作表导出为 PDF。 excel 表中填满了时间序列图表。 VBA 创建的 PDF 对电子邮件来说太大（90mb）。有没有办法导出到更小的文件？我尝试将质量更改为“xlQualityMinimum”，但文件大小没有变化。

或者，我可以用 C# 压缩 PDF。但我找不到免费的方法来做到这一点。如果无法在 VBA 中输出较小的文件，有人知道如何在 C# 中进行压缩吗？

Answer 1

考虑到您已经在使用 VBA，您应该考虑使用 7zip 压缩您的 PDF。它是免费的，可以从命令行启动。这是一个链接，您可以在其中找到源代码； http://www.7-zip.org/

使用下面提供的宏，您将能够浏览和压缩单个文件。根据您的喜好，您需要对其进行调整以使其适合您的需求。

Sub ZipFiles()
   Dim src  As Variant
   Dim dst  As Variant
   Dim file As Variant

   Const PATH_TO_7Z = "C:\Program Files\7-Zip\7z.exe"

   Set src = CreateObject("Shell.Application").BrowseForFolder(0, "Source folder", &H245)
   If Not src Is Nothing Then
      src = src.Self.Path & "\"

      Set dst = CreateObject("Shell.Application").BrowseForFolder(0, "Destination folder", &H245)
      If Not dst Is Nothing Then
         dst = dst.Self.Path & "\"

         For Each file In CreateObject("Scripting.FileSystemObject").GetFolder(src).Files
            Shell PATH_TO_7Z & " a -tzip """ & dst & file.Name & ".zip"" """ & file.Path & """"
         Next
      End If
   End If
End Sub

否则，如果您的源文件夹和目标文件夹是不变的，您可以这样做。

Sub ZipFiles()
   Dim file As Variant

   Const SOURCE     = "C:\test\source"
   Const DEST       = "C:\test\destination"
   Const PATH_TO_7Z = "C:\Program Files\7-Zip\7z.exe"

   For Each file In CreateObject("Scripting.FileSystemObject").GetFolder(SOURCE).Files
      Shell PATH_TO_7Z & " a -tzip """ & DEST & "\" & file.Name & ".zip"" """ & file.Path & """"
   Next
End Sub