Excel – VBA – ExportAsFixedFormat PDF文件太大

使用macros将工作表的副本保存为PDF到我的桌面。 但是，使用我的macros时，实际的文件大小会导致文件大小增加两到三倍，而如果我手动使用Excel，请转到Acrobat选项卡并创buildPDF。 我需要进一步缩小pdf的文件大小。 我已经设置了一个小的打印区域，尝试使用最低的质量，减less图像大小之前，手等。有更好的select打印一个较小的文件大小的工作表的PDF格式？ 文件之间的差异是100kb，而280kb。

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, IgnorePrintAreas:=False, Filename:="C:\ 

Answer 1

过去我也遇到了与文件大小完全相同的问题，因为我需要从Excel文件中编程创build.pdf。

一种解决方法，虽然不是特别优雅，但可能是使用SENDKEYS以编程方式模拟手动将文件保存为.pdf所需的键盘/鼠标操作。

最终的结果应该是可以接受的图像质量和更小的文件大小，你通过手动进行处理。

键的确切顺序可能会有所不同，具体取决于您的特定机器，Excel版本等…但你可以尝试做这样的事情：

 Application.SendKeys "%fy1{Enter}" 

你可能不得不玩弄你正在尝试模拟的按键顺序。 但是，这应该做你想做的事情。