Ошибка в Vba при попытке сохранить файл ppt

Question

Я новичок в кодировании и пытаюсь написать код для сохранения ppt-файла в pdf.Тем не менее, я получаю сообщение «Ошибка времени выполнения 424« Требуется объект », как я могу исправить?

Есть мой код:

Sub AbrirPP()

Dim ppPres As Object
Set ppPres = CreateObject("PowerPoint.Application")

With ppPres  
    .Visible = True
    .Presentations.Open "C:\Users\Fede\Documents\Prueba.pptx"
    .ActivePresentation.UpdateLinks

    With ActivePresentation
        .SaveCopyAs _
            Filename:=.Path & "\" & ActivePresentation.Name & Format(Now, "yyyy-mm-dd") & ".pdf", _
            FileFormat:=ppSaveAsPDF
    End With
End With

Set ppPre = Nothing

End Sub