使用VBA将ppt幻灯片导出为具有自定义dpi的图像

时间:2014-07-10 08:49:02

标签: image vba powerpoint-vba dpi powerpoint-2013

我想导出PowerPoint的幻灯片,质量不错,但尺寸不大。所以我要做的第一件事是在HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 15.0 \ PowerPoint \ Options中添加此注册表项:AutomaticPictureCompressionDefault,其值为0

这是为了防止图像的自动压缩,我使用此代码将幻灯片导出为图像:

For Each oSlide In ActivePresentation.Slides
    sImageName = "Slide" & oSlide.SlideNumber & ".PNG"
    oSlide.Export sImagePath & sImageName, "PNG", 2048, 1536
Next oSlide

问题是尺寸要大,我希望用较低的DPI减小它,因为尺寸应该是2048x1536,因此不方便修改它。我怎样才能设定DPI的愿望?在VBA或注册表中是否有办法设置我想要使用的DPI值?

0 个答案:

没有答案