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
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