Powerpoint Visual Basic Сохранить как изображение

Question

Я пытаюсь сохранить как изображение активный слайд, над которым я работаю, используя VB в Powerpoint. Этот код работает нормально, но только с номером слайда (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

Answer 1

Вы ищете Slide.Export.

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