Desesperado con Power Point y VB6
Publicado por Jyns (26 intervenciones) el 01/09/2005 11:20:53
Buenas,
Necesito que me digais o me deis alguna solución alternativa a este problema.
Necesito ejecutar una macro de Power Point desde VB 6, pero me da error y no sé como solucionarlo.
El código de VB es el siguiente:
Dim PwrPnt As New PowerPoint.Application
'ABRE EL POWER POINT PARA QUE SE EJECUTE LA MACRO
PwrPnt.Activate
PwrPnt.Presentations.Open PRESENTACION.PPT
PwrPnt.Run "'PRESENTACION.PPT'!NOMBRE_MACRO"
Set PwrPnt = Nothing
Falla en la sentencia Run.
El código de la macro de Power Point es el siguiente:
ActivePresentation.SaveAs FileName:=ActivePresentation.Path & "\picture.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse
ActivePresentation.Close
Application.Quit
Si ejecuto la macro desde la presentación no hay problema pero si ejecuto este código desde VB no hace lo que debiera.
Alguna solución???.
Gracias de antemano,
Saludos.
Necesito que me digais o me deis alguna solución alternativa a este problema.
Necesito ejecutar una macro de Power Point desde VB 6, pero me da error y no sé como solucionarlo.
El código de VB es el siguiente:
Dim PwrPnt As New PowerPoint.Application
'ABRE EL POWER POINT PARA QUE SE EJECUTE LA MACRO
PwrPnt.Activate
PwrPnt.Presentations.Open PRESENTACION.PPT
PwrPnt.Run "'PRESENTACION.PPT'!NOMBRE_MACRO"
Set PwrPnt = Nothing
Falla en la sentencia Run.
El código de la macro de Power Point es el siguiente:
ActivePresentation.SaveAs FileName:=ActivePresentation.Path & "\picture.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse
ActivePresentation.Close
Application.Quit
Si ejecuto la macro desde la presentación no hay problema pero si ejecuto este código desde VB no hace lo que debiera.
Alguna solución???.
Gracias de antemano,
Saludos.
Valora esta pregunta
0