Resolving an error

[Guest]

I am editing a Powerpoint slide using VBA in Excel. I have created 2 objects:
oPPT - a powerpoint file object
PPApp - a powerpoint application object

When I get to the SaveAs statement, I get the following error message in
Excel:
Run time error: -2147024809(80070057)
Presentation.SaveAs: Invalid enumeration Value

The two variations I have tried to use are:

PPApp.ActivePresentation.SaveAs Filename:=strPath &
"\images\map\legend.jpg", FileFormat:=ppSaveAsJPG,
EmbedTrueTypeFonts:=msoFalse

- OR -

oPPT.SaveAs Filename:=strPath & "\images\map\legend.jpg",
FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse

How do I resolve this?

Thanks in advance

 

[Steve Rindsberg]

I am editing a Powerpoint slide using VBA in Excel. I have created 2 objects:
oPPT - a powerpoint file object
PPApp - a powerpoint application object

When I get to the SaveAs statement, I get the following error message in
Excel:
Run time error: -2147024809(80070057)
Presentation.SaveAs: Invalid enumeration Value

The two variations I have tried to use are:

PPApp.ActivePresentation.SaveAs Filename:=strPath &
"\images\map\legend.jpg", FileFormat:=ppSaveAsJPG,
EmbedTrueTypeFonts:=msoFalse

- OR -

oPPT.SaveAs Filename:=strPath & "\images\map\legend.jpg",
FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse

How do I resolve this?

Either add a reference to PowerPoint in your Excel vba project or use the values
of PPT constants like ppSaveAsJPG rather than the names of the constants (which
aren't defined in Excel). Or define them in your module:

Const ppSaveAsJPG as Long = 17