将指定演示文稿的副本保存至另一文件，而不修改原文件。
expression.SaveCopyAs(FileName, FileFormat, EmbedTrueTypeFonts)
expression 必选。该表达式返回一个 Presentation 对象。
FileName 必选。String 类型。指定文件的存盘名称。如果未指定完整路径名，PowerPoint 将该文件存于当前文件夹。
FileFormat 可选。PpSaveAsFileType 类型。文件格式。
| PpSaveAsFileType 可以是下列 PpSaveAsFileType 类型常数之一。 |
| ppSaveAsHTMLv3 |
| ppSaveAsAddIn |
| ppSaveAsBMP |
| ppSaveAsDefault 默认值。 |
| ppSaveAsGIF |
| ppSaveAsHTML |
| ppSaveAsHTMLDual |
| ppSaveAsJPG |
| ppSaveAsMetaFile |
| ppSaveAsPNG |
| ppSaveAsPowerPoint3 |
| ppSaveAsPowerPoint4 |
| ppSaveAsPowerPoint4FarEast |
| ppSaveAsPowerPoint7 |
| ppSaveAsPresentation |
| ppSaveAsRTF |
| ppSaveAsShow |
| ppSaveAsTemplate |
| ppSaveAsTIF |
| ppSaveAsWebArchive |
EmbedTrueTypeFonts 可选。MsoTriState 类型。指定是否嵌入 TrueType 字体。
| MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
| msoCTrue |
| msoFalse |
| msoTriStateMixed 默认值 |
| msoTriStateToggle |
| msoTrue |
本示例以文件名“New Format Copy.ppt”保存当前演示文稿的一个副本。默认情况下，该副本以当前版本的 PowerPoint 演示文稿格式保存，然后以文件名“Old Format Copy”另存为 PowerPoint 4.0 格式文件。
With Application.ActivePresentation
.SaveCopyAs "New Format Copy"
.SaveAs "Old Format Copy", ppSaveAsPowerPoint4
End With