相当于PPT中另存为图片的VBA

Question

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

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

Answer 1

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

EG

myShape.Export "C:\myloction.png", _ 
  ppShapeFormatPNG, _ 
  5 * myShape.Width, _ 
  5 * myShape.Height