Макрос для powerpoint сохранение в pdf
Publishes a copy of a Microsoft PowerPoint presentation as a file in a fixed format, either PDF or XPS.
Syntax
expression.ExportAsFixedFormat (Path, FixedFormatType, Intent, FrameSlides, HandoutOrder, OutputType, PrintHiddenSlides, PrintRange, RangeType, SlideShowName, IncludeDocProperties, KeepIRMSettings, DocStructureTags, BitmapMissingFonts, UseISO19005_1, ExternalExporter)
expression An expression that returns a Presentation object.
Parameters
Name | Required/Optional | Data type | Description |
---|---|---|---|
Path | Required | String | The path for the export. |
FixedFormatType | Required | PpFixedFormatType | The format to which the slides should be exported. |
Intent | Optional | PpFixedFormatIntent | The purpose of the export. |
FrameSlides | Optional | MsoTriState | Whether the slides to be exported should be bordered by a frame. |
HandoutOrder | Optional | PpPrintHandoutOrder | The order in which the handout should be printed. |
OutputType | Optional | PpPrintOutputType | The type of output. |
PrintHiddenSlides | Optional | MsoTriState | Whether to print hidden slides. |
PrintRange | Optional | PrintRange | The slide range. |
RangeType | Optional | PpPrintRangeType | The type of slide range. |
SlideShowName | Optional | String | The name of the slide show. |
IncludeDocProperties | Optional | Boolean | Whether the document properties should also be exported. The default is False. |
KeepIRMSettings | Optional | Boolean | Whether the IRM settings should also be exported. The default is True. |
DocStructureTags | Optional | Boolean | Whether to include document structure tags to improve document accessibility. The default is True. |
BitmapMissingFonts | Optional | Boolean | Whether to include a bitmap of the text. The default is True. |
UseISO19005_1 | Optional | Boolean | Whether the resulting document is compliant with ISO 19005-1 (PDF/A). The default is False. |
ExternalExporter | Optional | Variant | A pointer to an Office add-in that implements the IMsoDocExporter COM interface and allows calls to an alternate implementation of code. The default is a null pointer. |
Remarks
The ExportAsFixedFormat method is the equivalent of the Save As PDF or XPS command on the Office menu in the PowerPoint user interface. The method creates a file that contains a static view of the active presentation.
The FixedFormatType parameter value can be one of these PpFixedFormatType constants.
Constant | Value | Description |
---|---|---|
ppFixedFormatTypePDF | 2 | Export to PDF format. |
ppFixedFormatTypeXPS | 1 | Export to XPS format. |
The Intent parameter value can be one of these PpFixedFormatIntent constants.
Constant | Description |
---|---|
ppFixedFormatIntentPrint | Intended to be published online and printed. |
ppFixedFormatIntentScreen | The default. Intended to be published only online. |
The FrameSlides parameter value can be one of these MsoTriState constants.
Constant | Description |
---|---|
msoFalse | The default. Does not frame exported slides. |
msoTrue | Frames exported slides. |
The HandoutOrder parameter value can be one of these PpPrintHandoutOrder constants.
Constant | Description |
---|---|
ppPrintHandoutHorizontalFirst | Prints handouts with consecutive slides displayed horizontally first (in horizontal rows). |
ppPrintHandoutVerticalFirst | The default. Prints handouts with consecutive slides displayed vertically first (in vertical columns). |
The OutputType parameter value can be a combination of one or more of these PpPrintOutputType constants.
Constant | Description |
---|---|
ppPrintOutputBuildSlides | |
ppPrintOutputFourSlideHandouts | Prints four slides per handout page. |
ppPrintOutputNineSlideHandouts | Prints nine slides per handout page. |
ppPrintOutputNotesPages | Prints notes pages. |
ppPrintOutputOneSlideHandouts | Prints one slide per handout page. |
ppPrintOutputOutline | Prints outline view. |
ppPrintOutputSixSlideHandouts | Prints six slides per handout page. |
ppPrintOutputSlides | Prints all slides in the presentation. The default. |
ppPrintOutputThreeSlideHandouts | Prints three slides per handout page. |
ppPrintOutputTwoSlideHandouts | Prints two slides per handout page. |
The PrintHiddenSlides parameter value can be one of these MsoTriState constants.
Constant | Description |
---|---|
msoFalse | The default. Does not print hidden slides. |
msoTrue | Prints hidden slides. |
The RangeType parameter value can be one of these PpPrintRangeType constants.
Constant | Description |
---|---|
ppPrintAll | The default. Exports all slides. |
ppPrintCurrent | Exports only the current slide. |
ppPrintNamedSlideShow | Exports the named (custom) slide show specified in SlideShowName. |
ppPrintSelection | Exports selected slides. |
ppPrintSlideRange | Exports the specified slide range. |
Set BitmapMissingFonts to True when font licensing does not permit you to embed a font in the PDF file. If you set this parameter to False, the font is referenced, and the viewer's computer substitutes an appropriate font if the authored one is not available.
Example
The following example shows how to use the ExportAsFixedFormat method to export the active presentation as a .pdf file named test.pdf to the user's Documents folder.
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Сохраняет презентацию, которая никогда не была сохранена, или сохраняет ранее сохраненную презентацию под другим именем.
Синтаксис
выражения. SaveAs (FileName, FileFormat, EmbedFonts)
выражение Переменная, представляюная объект Presentation .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
FileName | Обязательный | String | Указывает имя для сохранения файла под. Если вы не включаете полный путь, PowerPoint сохраняет файл в текущей папке. |
FileFormat | Необязательный | PpSaveAsFileType | Указывает сохраненный формат файла. Если этот аргумент не будет пропущен, файл будет сохранен в формате файла по умолчанию (ppSaveAsDefault). |
EmbedFonts | Необязательный | MsoTriState | Указывает, PowerPoint встраить шрифты TrueType в сохраненную презентацию. |
Примечания
Значение параметра FileFormat может быть одним из этих констант PpSaveAsFileType . По умолчанию — ppSaveAsDefault. Полный список констант см. в перечне PpSaveAsFileType.
ppSaveAsAddIn |
ppSaveAsBMP |
ppSaveAsDefault |
ppSaveAsEMF |
ppSaveAsExternalConverter |
ppSaveAsGIF |
ppSaveAsJPG |
ppSaveAsMetaFile |
ppSaveAsMP4 |
ppSaveAsOpenDocumentPresentation |
ppSaveAsOpenXMLAddin |
ppSaveAsOpenXMLPicturePresentation |
ppSaveAsOpenXMLPresentation |
ppSaveAsOpenXMLPresentationMacroEnabled |
ppSaveAsOpenXMLShow |
ppSaveAsOpenXMLShowMacroEnabled |
ppSaveAsOpenXMLTemplate |
ppSaveAsOpenXMLTemplateMacroEnabled |
ppSaveAsOpenXMLTheme |
ppSaveAsPDF |
ppSaveAsPNG |
ppSaveAsPresentation |
ppSaveAsRTF |
ppSaveAsShow |
ppSaveAsStrictOpenXMLPresentation |
ppSaveAsTemplate |
ppSaveAsTIF |
ppSaveAsWMV |
ppSaveAsXMLPresentation |
ppSaveAsXPS |
Значение параметра EmbedFonts может быть одним из этих констант MsoTriState .
Константа | Описание |
---|---|
msoFalse | Шрифты TrueType не встроены. |
msoTriStateMixed | Встроенные шрифты — это смесь TrueType и non-TrueType. По умолчанию. |
msoTrue | Встроенные шрифты TrueType. |
Пример
В этом примере сохраняется копия активной презентации под именем "Новый формат Copy.ppt". По умолчанию эта копия сохранена в формате презентации в текущей версии PowerPoint. Затем презентация будет сохранена в виде PowerPoint 4.0 с именем "Старая копия формата".
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
An Excel, PowerPoint, & MS Word blog providing handy and creative VBA code snippets. These macro codes are well commented and are completely functional when copied into a module.
What This VBA Code Does
The business world has increasingly become more reliant on mobile computing with devices such as tablets and smartphones becoming mainstream. This, in turn, has provided an elevated demand for analysts to turn spreadsheets into PDF documents so management can view your reports on the go.
Below is a simple VBA macro that will allow you to quickly turn your current PowerPoint presentation into a PDF file in a snap. The code is written to save your PDF in the same folder as the PowerPoint file currently resides. If you need to make modifications, hopefully, you will be able to follow along with my code comments and customize the code to your specific needs.
Dim CurrentFolder As String
Dim FileName As String
Dim myPath As String
Dim UniqueName As Boolean
'Store Information About PowerPoint File
myPath = ActivePresentation.FullName
CurrentFolder = ActivePresentation.Path & "\"
FileName = Mid(myPath, InStrRev(myPath, "\") + 1, _
InStrRev(myPath, ".") - InStrRev(myPath, "\") - 1)
'Does File Already Exist?
Do While UniqueName = False
DirFile = CurrentFolder & FileName & ".pdf"
If Len(Dir(DirFile)) <> 0 Then
UserAnswer = MsgBox("File Already Exists! Click " & _
"[Yes] to override. Click [No] to Rename.", vbYesNoCancel)
If UserAnswer = vbYes Then
UniqueName = True
ElseIf UserAnswer = vbNo Then
Do
'Retrieve New File Name
FileName = InputBox("Provide New File Name " & _
"(will ask again if you provide an invalid file name)", _
"Enter File Name", FileName)
'Exit if User Wants To
If FileName = "False" Or FileName = "" Then Exit Sub
Loop While ValidFileName(FileName) = False
Else
Exit Sub 'Cancel
End If
Else
UniqueName = True
End If
Loop
'Save As PDF Document
On Error GoTo ProblemSaving
ActivePresentation.ExportAsFixedFormat CurrentFolder & FileName & ".pdf", _
ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoCTrue, ppPrintHandoutHorizontalFirst, _
ppPrintOutputSlides, msoFalse, , ppPrintAll, , False , False , False , False, False
On Error GoTo 0
'Confirm Save To User
With ActivePresentation
FolderName = Mid(.Path, InStrRev(.Path, "\") + 1, Len(.Path) - InStrRev(.Path, "\"))
End With
MsgBox "PDF Saved in the Folder: " & FolderName
'Error Handlers
ProblemSaving:
MsgBox "There was a problem saving your PDF. This is most commonly caused " & _
"by the original PDF file already being open."
Exit Sub
Function To Validate Save File Name
Below is a function that you will need to paste in along with the above macro. The VBA function provides a way of testing any file name your users provide to save the PDF document as.
Dim ppt As Presentation
'Create a Temporary XLS file
On Error GoTo InvalidFileName
Set ppt = Presentations.Add
ppt.SaveAs Environ("TEMP") & "\" & FileName & ".ppt", ppSaveAsPresentation
On Error Resume Next
'Close Temp PowerPoint
ppt.Close
'Delete Temp File
Kill Environ("TEMP") & "\" & FileName & ".ppt"
'File Name is Valid
ValidFileName = True
'ERROR HANDLERS
InvalidFileName:
'Close Temp PowerPoint
ppt.Close
'File Name is Invalid
ValidFileName = False
Same Macro Functionality For Other Office Applications
Upon request, I have made similar macros for other Office Applications you may use on a regular basis to convert their files into PDF documents. The links to those specific posts are as follows:
How Do I Modify This To Fit My Specific Needs?
Chances are this post did not give you the exact answer you were looking for. We all have different situations and it's impossible to account for every particular need one might have. That's why I want to share with you: My Guide to Getting the Solution to your Problems FAST! In this article, I explain the best strategies I have come up with over the years to getting quick answers to complex problems in Excel, PowerPoint, VBA, you name it!
I highly recommend that you check this guide out before asking me or anyone else in the comments section to solve your specific problem. I can guarantee 9 times out of 10, one of my strategies will get you the answer(s) you are needing faster than it will take me to get back to you with a possible solution. I try my best to help everyone out, but sometimes I don't have time to fit everyone's questions in (there never seem to be quite enough hours in the day!).
I wish you the best of luck and I hope this tutorial gets you heading in the right direction!
Как сохранить PowerPoint презентацию в формате PDF
Вы можете создать новый медиафайл или конвертировать уже готовую презентацию в программе Пауэр Поинт. Если она установлена на вашем ПК, то просто запустите приложение. При отсутствии редактора загрузите его с официального сайта Microsoft. Для оформления, редактирования и преобразования файлов потребуется оплатить подписку Microsoft 365.
Как сделать презентацию в ПДФ в PowerPoint 2007 или последней версии приложения? Откройте ПО и импортируйте файл PPTX. Затем выполните несколько простых действий:
1. Кликните «Файл» и на левой панели перейдите во вкладку «Экспорт». Выберите действие «Создать документ PDF/XPS»
Кликните на отмеченный значок
2. Перед выводом данных настройте параметры преобразования. В блоке «Оптимизация» вы можете уменьшить размер файла, а в разделе «Параметры» доступны расширенные настройки. Здесь можно указать диапазон слайдов, создать обрамление, отобразить комментарии и теги, подключить совместимость с PDF/A, а также перевести текст в точечный рисунок.
Окно настройки параметров
3. После изменения настроек нажмите на кнопку «Опубликовать».
Укажите папку и название материала
Как перевести уже готовую презентацию в ПДФ
Для преобразования документа скачайте конвертер бесплатно с официального сайта разработчика и запустите дистрибутив. Его можно установить на устройства с Виндовс 10, 8, 7, XP. По завершении инсталляции откройте программу и следуйте простой пошаговой инструкции, как сохранить презентацию в ПДФ:
Шаг 1. Загрузите презентацию
Для начала файл ППТ необходимо разбить на отдельные изображения. Для этого можно воспользоваться онлайн-сервисами или сделать снимки экрана и обрезать лишнее.
В зависимости от выбранного способа у вас есть два варианта импорта презентации в программу:
1. Объединение изображений. Если вы разделили документ на отдельные картинки, то в стартовом меню PDF Commander выберите опцию «Объединить в PDF». Укажите папку и нужные кадры или перетащите материалы в окно софта. Вы можете настроить порядок изображений, а затем склеить в единый многостраничный документ.
Объединение изображений в один файл
2. Оформление ПДФ с нуля. Откройте презентацию в подходящей для просмотра программе и выведите ее на весь экран. Сделайте скриншот слайда, зажав клавишу PrtSc. Создайте в приложении новый документ и вставьте снимок экрана.
Для этого нажмите комбинацию кнопок Ctrl+V
Настройте размер фото с помощью уголков рамки. Затем кликните на инструмент «Кадрировать». Выделите нужную часть изображения.
Отпустите мышку для применения изменений
Вы можете создать любое количество страниц
Шаг 2. Скорректируйте документ
Приложение предлагает различные функции для изменения медиафайлов. Вы сможете добавить штампы из коллекции, загрузить картинки, создать новый текстовый слой, оформить нумерацию страниц, шифровать материалы и изменять метаданные.
Создание нового текстового слоя
Шаг 3. Экспортируйте результат
После завершения обработки экспортируйте итоговый материал. Для этого откройте меню «Файл» и выберите «Сохранить как».
Укажите папку и название документа
Заключение
Теперь вы знаете, как сделать презентацию в формате PDF. Для этого можно воспользоваться приложением PowerPoint, однако для использования последней версии ПО потребуется оплатить подписку. Также оно не позволит конвертировать защищенные документы других пользователей.
Программный пакет Microsoft Office уже давно умеет экспортировать документы в PDF. Эта опция появилась в версии 2007. Работает она очень просто:
1) Вы открываете текст в Microsoft Word, таблицу в Excel или презентацию в PowerPoint,
2) Нажимаете на логотип Microsoft Office в левом верхнем углу программы и в появившемся меню выбираете: «Сохранить как => PDF».
3) Осталось задать имя файла PDF и выбрать папку для его сохранения.
Собственный экспорт документов, реализованный средствами Офиса, решает задачу конвертирования документов в PDF на порядок лучше и точнее, чем, например, независимые конвертеры документов, работающие по принципу виртуальных принтеров. Всё дело в том, что при прохождении документа через систему печати Windows, он теряет часть информации. Например, теряются гиперссылки из текста. Для вывода на бумагу они не нужны, поэтому такая информация на принтер и не передается.
Функция экспорта прекрасно работает, если нужно конвертировать в PDF пару-тройку документов. Но если таких документов десятка два, то открывание их по одному и повторение для каждого из них пунктов с первого по третий превращается в довольно нудное занятие. Вот хороший пример работы, которую просто необходимо автоматизировать!
И программа DocuFreezer прекрасно справляется с этой задачей!
Добавьте ваши 20 документов в список DocuFreezer и нажмите на кнопку Start. Документы будут конвертированы в PDF быстрее, чем вы успеете заварить себе новую чашку чая!
В список выходных форматов программы DocuFreezer кроме PDF входят так же JPEG, TIFF и PNG. А в будущих версиях программы запланированы к внедрению функции наложения водяных знаков и подписывание файлов PDF цифровой подписью.
Первая версия DocuFreezer бесплатна для личного использования.
Читайте также: