Vba Powerpoint Visual Basic另存为图片

我正在尝试将我正在Powerpoint中使用VB制作的活动幻灯片另存为图片。 这段代码运行良好，但仅适用于幻灯片编号（1），如果选择了所有图像和形状，如何选择活动幻灯片上的所有对象（如CTRL+A），然后将其导出为图片

Sub Export_Image()

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


End Sub

你在找我

你在找我

Sub ExportImage()
    ActiveWindow.View.Slide.Export FileName:="C:\ARTES\CRETA.png", _
                                   FilterName:="PNG", _
                                   ScaleWidth:=1500, _
                                   ScaleHeight:=1500
End Sub