使用 VBScript 更改 PowerPoint 中的高级选项
Changing advanced options in PowerPoint with VBScript
我正在编写一个 VBS 脚本，它将所选图片从放置脚本的文件夹复制到新创建的 PowerPoint 文档，为每张幻灯片添加一些评论并将文档保存在同一目录中。我面临的问题是 .pptx 文件的大小经常超过 500MB。
PowerPoint (2013) 在“高级选项”菜单中内置 "Discard editing data" 选项，可将文档中所有图像的分辨率降低到希望值（在我的例子中为 220 ppi）。
是否有使用 VBSript 访问相关复选框的选项？我一直在努力寻找如何通过脚本启用此选项的信息，但没有找到任何有用的信息。
非常感谢您的帮助！
这不是通过 PPT 对象模型可以访问的东西，但由于您使用的是 VBS 而不是 PPT 中的 VBA，您可能可以在启动 PowerPoint 之前进行一些注册表设置。
要计算出所需的设置，请打开 REGEDIT 并导航至
HKEY_CURRENT_USER\Software\Microsoft\Office.0\PowerPoint\Options
注意：15.0是PPT 2013使用的版本。PPT 2016是16.0，2010是14.0等等，跳过13.0
在您更改您想要的 PPT 设置时让 REGEDIT 打开；每次更改后，切换到 REGEDIT 并按 F5 刷新。任何更改或新添加的设置都是您所需要的。
首先，自动压缩图片的设置是一个 DWORD 值：
AutomaticPictureCompressionDefault
我正在编写一个 VBS 脚本，它将所选图片从放置脚本的文件夹复制到新创建的 PowerPoint 文档，为每张幻灯片添加一些评论并将文档保存在同一目录中。我面临的问题是 .pptx 文件的大小经常超过 500MB。 PowerPoint (2013) 在“高级选项”菜单中内置 "Discard editing data" 选项，可将文档中所有图像的分辨率降低到希望值（在我的例子中为 220 ppi）。 是否有使用 VBSript 访问相关复选框的选项？我一直在努力寻找如何通过脚本启用此选项的信息，但没有找到任何有用的信息。
非常感谢您的帮助！
这不是通过 PPT 对象模型可以访问的东西，但由于您使用的是 VBS 而不是 PPT 中的 VBA，您可能可以在启动 PowerPoint 之前进行一些注册表设置。
要计算出所需的设置，请打开 REGEDIT 并导航至
HKEY_CURRENT_USER\Software\Microsoft\Office.0\PowerPoint\Options
注意：15.0是PPT 2013使用的版本。PPT 2016是16.0，2010是14.0等等，跳过13.0
在您更改您想要的 PPT 设置时让 REGEDIT 打开；每次更改后，切换到 REGEDIT 并按 F5 刷新。任何更改或新添加的设置都是您所需要的。
首先，自动压缩图片的设置是一个 DWORD 值：
AutomaticPictureCompressionDefault