Блог

Я пытаюсь сохранить слайд из PPT через VBA, но что-то не так с кодом, потому что он запускается, но мне ничего не дает… файл не создан

 Sub saveimage()

Dim ppapp As PowerPoint.Application
Dim pppres As PowerPoint.Presentation
Dim xSlide As Slide
On Error GoTo Err_ImageSave

Set ppapp = GetObject(, "Powerpoint.application")
Set pppres = ppapp.ActivePresentation

With pppres.Slides(1)
.Export "C:UsersmsrDocumentsProjetos" amp; "Slide1" amp; ".jpg", "JPG"

End With

Err_ImageSave:
If Err <> 0 Then
MsgBox Err.Description
End If

End Sub
 

Не могли бы вы мне помочь?

Спасибо, M