Метод Presentation.SaveCopyAs (PowerPoint)
Сохраняет копию указанной презентации в файл без изменения исходного файла.
Синтаксис
выражение. SaveCopyAs( _FileName_, _FileFormat_, _EmbedTrueTypeFonts_ )
Выражение Переменная, представляющая объект Presentation .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| FileName | Обязательный | String | Указывает имя для сохранения файла. Если вы не включили полный путь, PowerPoint сохранит файл в текущей папке. |
| FileFormat | Необязательный | PpSaveAsFileType | Формат файла. |
| EmbedTrueTypeFonts | Необязательный | MsoTriState | Указывает, внедрены ли шрифты TrueType. |
Замечания
Значение параметра FileFormat может быть одной из этих констант PpSaveAsFileType . Значение по умолчанию — ppSaveAsDefault.
| ppSaveAsHTMLv3 |
| ppSaveAsAddIn |
| ppSaveAsBMP |
| ppSaveAsDefault |
| ppSaveAsGIF |
| ppSaveAsHTML |
| ppSaveAsHTMLDual |
| ppSaveAsJPG |
| ppSaveAsMetaFile |
| ppSaveAsPNG |
| ppSaveAsPowerPoint3 |
| ppSaveAsPowerPoint4 |
| ppSaveAsPowerPoint4FarEast |
| ppSaveAsPowerPoint7 |
| ppSaveAsPresentation |
| ppSaveAsRTF |
| ppSaveAsShow |
| ppSaveAsTemplate |
| ppSaveAsTIF |
| ppSaveAsWebArchive |
Значение параметра EmbedTrueTypeFonts может быть одной из этих констант MsoTriState .
| Константа | Описание |
|---|---|
| msoFalse | Шрифты TrueType не внедрены. |
| msoTriStateMixed | Внедренные шрифты представляют собой сочетание TrueType и non-TrueType. Значение по умолчанию. |
| msoTrue | Шрифты TrueType внедрены. |
Если презентация загружена не полностью, этот метод завершается сбоем и возникает ошибка. Дополнительные сведения о частичных документах см. в разделе Работа с частичными документами.
Пример
В этом примере копия активной презентации сохраняется под именем "Новый формат Copy.ppt". По умолчанию эта копия сохраняется в формате презентации в текущей версии PowerPoint. Затем презентация сохраняется в виде файла PowerPoint 4.0 с именем "Копирование в старом формате".
With Application.ActivePresentation
.SaveCopyAs "New Format Copy"
.SaveAs "Old Format Copy", ppSaveAsPowerPoint4
End With
См. также
Работа с частичными документами
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.