title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
Presentation.SaveCopyAs method (PowerPoint) |
vbapp10.chm583037 |
|
|
456415d1-845a-9e9b-45ce-98985e94aee5 |
08/02/2022 |
medium |
Saves a copy of the specified presentation to a file without modifying the original.
expression. SaveCopyAs
( _FileName_
, _FileFormat_
, _EmbedTrueTypeFonts_
)
expression A variable that represents a Presentation object.
Name | Required/Optional | Data type | Description |
---|---|---|---|
FileName | Required | String | Specifies the name to save the file under. If you don't include a full path, PowerPoint saves the file in the current folder. |
FileFormat | Optional | PpSaveAsFileType | The file format. |
EmbedTrueTypeFonts | Optional | MsoTriState | Specifies whether TrueType fonts are embedded. |
The FileFormat parameter value can be one of these PpSaveAsFileType constants. The default is ppSaveAsDefault.
ppSaveAsHTMLv3 |
ppSaveAsAddIn |
ppSaveAsBMP |
ppSaveAsDefault |
ppSaveAsGIF |
ppSaveAsHTML |
ppSaveAsHTMLDual |
ppSaveAsJPG |
ppSaveAsMetaFile |
ppSaveAsPNG |
ppSaveAsPowerPoint3 |
ppSaveAsPowerPoint4 |
ppSaveAsPowerPoint4FarEast |
ppSaveAsPowerPoint7 |
ppSaveAsPresentation |
ppSaveAsRTF |
ppSaveAsShow |
ppSaveAsTemplate |
ppSaveAsTIF |
ppSaveAsWebArchive |
The EmbedTrueTypeFonts parameter value can be one of these MsoTriState constants.
Constant | Description |
---|---|
msoFalse | TrueType fonts are not embedded. |
msoTriStateMixed | Embedded fonts are a mixture of TrueType and non-TrueType. The default. |
msoTrue | TrueType fonts are embedded. |
If the presentation is not fully downloaded, this method fails and an error occurs. For more information about the Partial Documents, see Work with Partial Documents.
This example saves a copy of the active presentation under the name "New Format Copy.ppt." By default, this copy is saved in the format of a presentation in the current version of PowerPoint. The presentation is then saved as a PowerPoint 4.0 file named "Old Format Copy."
With Application.ActivePresentation
.SaveCopyAs "New Format Copy"
.SaveAs "Old Format Copy", ppSaveAsPowerPoint4
End With
[!includeSupport and feedback]