VBA相当于PPT中另存为图片

VBA equivalent to Save As Picture in PPT

我正在尝试使用 vba 将分组的形状保存为 PowerPoint 中的图像。 "save as picture" 功能,您可以通过右键单击该组来使用它来生成高质量图像。我尝试重新创建右键单击功能会产生模糊、低质量的图像。有没有办法准确地重新创建右键单击另存为图片而不是导出?

ActivePresentation.Slides(1).Select
Call ActiveWindow.Selection.ShapeRange(1).Export( _
"C:\myloction.png", _
ppShapeFormatPNG)

在 ppShapeFormat 参数后添加可选的 scaleheight/scalewidth 参数。结果看起来几乎是随机的,我不知道这些参数应该与什么有关,但是你输入的数字越大,导出图像的 rez 就越高。