VBA 2010: Problema para convertir PPT a PDF

Hola
Necesito, regularmente, convertir una presentación PowerPoint en un archivo PDF.  (Dentro de una aplicación VBA excel, que tiene muchas otras funcionalidades).
El código que hice, para esto es el que sigue:
Sub Abrir_PowerPoint()
'Abre un PowerPoint desde Excel
      Dim objPPT As PowerPoint.Application
      Dim ppPres As PowerPoint.Presentation
      'Crea una instancia de PowerPoint
      Set objPPT = CreateObject("PowerPoint.Application")
      objPPT.Visible = True
      CarpetaPDF = "D:\Docu_Personales\VBA_Varios\ConvertirExcel_PDF\"
      ArchPPT = "CarátulaMarzo2011.pptx"
      NombrePPT = CarpetaPDF & ArchPPT
'Abre el archivo PowerPoint
      'Crea referencia a una presentación (File Powerpoint) activa
      objPPT.Presentations.Open CarpetaPDF & ArchPPT
      objPPT.ActiveWindow.ViewType = ppViewSlide
'Salva el archivo PPT como PDF
      Set ppPres = objPPT.ActivePresentation
      ArchPDF = "Caratula110331.pdf"
      NombrePDF = CarpetaPDF & ArchPDF
      ppPres.Save
      ppPres.ExportAsFixedFormat NombrePDF, _
            ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoCTrue, _
            ppPrintHandoutHorizontalFirst, ppPrintOutputBuildSlides, _
            msoFalse, , , , False, False, False, False, False
            Set ppPres = Nothing
            Set objPPT = Nothing
End Sub     
Funciona correctamente en la parte que abre el archivo PowerPoint. Pero me da un error:
Run-time error'-2147188160(80048240) Presentation(unknow member) Invalid request. This method or property is no longer supported by this version os PowerPoint.
¿Alguien puede indicarme que estoy haciendo mal?
Muchisimas gracias
Saludos cordiales
J.C. Giglia

Añade tu respuesta

Haz clic para o