PowerPoint SaveAs method

[mintjulep]

I am using

Application.ActivePresentation.SaveAs "File name", ppSaveAsShow

To save a copy of an existing .ppt file as a.pps (Show file)

This works fine, except that it quite naturally saves the VBA code as well.

Is there a simple switch that would let be save the .pps file without any of the code from the originating .ppt file?

 

[CBasicAsslember]

I have done this for Excel so I would think you could do it in Power Point too. The easiest way in Excel is to copy each sheet into a new workbook and save it. I also have a routine someplace that deletes the all the code before saving.

 

[mintjulep]

Ok, I did an end-around and addressed this from the other direction.

Presentations.Add
ActivePresentation.Slides.InsertFromFile

Which is pretty much what CBA suggested.