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

Question

我想导出质量不错但尺寸不大的 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 值？