Vba PowerPoint图形导出中的图形质量

Vba PowerPoint图形导出中的图形质量,vba,png,powerpoint,Vba,Png,Powerpoint,我在将PowerPoint中的图形导出为图像时遇到一些困难 当我手动从powerpoint导出图形时,右键单击->另存为图片,图像的质量比使用VBA导出时要好得多: Call objPPTshape.Export(strExportName, ppSaveAsPNG) 有人能解释为什么会出现这个问题吗 我使用此解决方法将一些打印区域从excel工作表保存到png文件。是否有更简单的方法从excel导出高质量PNG 提前感谢。如果您在通话后添加一些参数,您应该会得到更好的结果: objPPTsh

我在将PowerPoint中的图形导出为图像时遇到一些困难

当我手动从powerpoint导出图形时,右键单击->另存为图片,图像的质量比使用VBA导出时要好得多:

Call objPPTshape.Export(strExportName, ppSaveAsPNG)
有人能解释为什么会出现这个问题吗

我使用此解决方法将一些打印区域从excel工作表保存到png文件。是否有更简单的方法从excel导出高质量PNG


提前感谢。

如果您在通话后添加一些参数,您应该会得到更好的结果:

objPPTshape.Export strExportName, ppSaveAsPNG, 1000, 1000, ppRelativeToSlide
根据需要调整数字。
无需调用-只需使用名称和括号调用方法即可

谢谢。这帮了大忙。不知道传递参数与Export-Function一起工作。您是否也有在方法中传递哪些参数的建议?当我通过shape.width和shape.height时,图像的纵横比不正确,似乎这是一种未记录的方法。最后一个参数有四个可能的值:ppRelativeToSlide、PPClipreativeToSlide、ppScaleToFit、ppScaleXY。这两个数字-没有线索-可能是twips?我做了一些研究:尺寸参数第一:宽度,第二:高度按一个因子缩放:宽度按1.171缩放,所以1000个宽度在png中的结果是1171px宽度。高度按0.863进行缩放,使传递给方法的1000个PNG中有863px。我能创建的最大宽度是3070px(PNG),2621(VBA)。如果超过此值,图像将被简单地切断。更改导出方法ppRelativeToSlide等并没有改变结果中的任何内容。图形质量仍然不如手动保存图片。因此,如果有任何其他想法如何获得相同的结果,我会很高兴。