使用VBScript更改PowerPoint中的高级选项

时间:2018-07-29 22:06:44

标签: vba vbscript powerpoint

我正在编写一个VBS脚本,该脚本将从放置脚本的文件夹中选择的图片复制到新创建的PowerPoint文档中,向每张幻灯片添加一些注释,并将文档保存在同一目录中。我面临的问题是.pptx文件的大小,该文件经常超过500MB。 PowerPoint(2013)在“高级选项”菜单中具有“丢弃编辑数据”的内置选项,该选项可将文档中所有图像的分辨率降低至所需值(本例中为220 ppi)。 是否可以使用VBSript访问相关复选框?我一直在努力寻找信息,以了解如何通过脚本启用此选项,但没有发现任何有用的信息。

非常感谢您的帮助!

1 个答案:

答案 0 :(得分:1)

这不是可以通过PPT对象模型访问的内容,但是由于您是在PPT中使用VBS而不是VBA,因此您可能可以在启动PowerPoint之前进行一些注册表设置。

要计算所需的设置,请打开REGEDIT并导航至

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\PowerPoint\Options

注意:15.0是用于PPT 2013的版本。PPT2016是16.0,2010是14.0,依此类推,跳过了13.0

在更改所需的PPT设置时,请保持REGEDIT打开。每次更改后,切换到REGEDIT,然后按F5刷新。任何更改或新添加的设置都是您要做的。

为您入门,自动压缩图片的设置为DWORD:

AutomaticPictureCompressionDefault