ppt2013技巧怎樣通過宏命令創建pdf文檔
ppt2013技巧怎樣通過宏命令創建pdf文檔
PPT2013是日常辦公軟件之一，里面的一些功能非常之人性化，那么大家知道如何在powerpoint2013中通過宏命令一鍵點擊創建pdf文檔?其實這還需要打開PPT的開發工具菜單，通過vba代碼及相關手動設置來實現。具體方法請大家看一下文章，歡迎大家來到學習啦學習ppt2013通過宏命令創建pdf文檔的方法。
ppt2013通過宏命令創建pdf文檔的方法
此處以PowerPoint 2013為例，其他版本的操作略有不同。
點擊菜單：文件→選項→自定義功能區→主選項卡，勾選“開發工具”。或直接在所有命令中找到“宏”，添加到自定義菜單中即可。
點擊菜單“開發工具”，可以在常用工具欄“代碼”中看到“宏”的圖標。
END
啟用宏并輸入相應的vba代碼
操作步驟：1.在“開發工具”選項卡的“代碼”組中，單擊“宏”。如果“開發工具”選項卡不可用，請參閱顯示“開發工具”選項卡。2.在“宏”對話框的“宏”名稱框中，鍵入宏的名稱，如pdf。3.在“宏作用于”列表中，單擊要存儲宏的模板或演示文稿。默認是活動文檔，不用更改。4.在“說明”框中，鍵入宏的說明。可以不用填寫。5.單擊“創建”打開 Visual Basic for Applications。
將如下----之間的代碼拷貝復制到打開的宏命令代碼窗口中，保存：
----
Sub SaveAsPDF()
ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
End Sub
----
代碼解釋：
ActivePresentation.ExportAsFixedFormat 將ppt文檔導出，利用參數設置導出為對應的格式。
ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf" 將ppt文檔另存為當前目錄下的pdf，文件名同ppt。
此處可以將相對引用更改為混合引用，如：“D:\DATA\" & ActivePresentation.Name & ".pdf";
或絕對引用，如：D:\DATA\a.pdf"
整理代碼來源：
原始詳細代碼：https://msdn.microsoft.com/en-us/library/office/ff746080.aspx，有相關的一系列對應參數、代碼的解釋，可以進一步學習參考。
----之間為代碼：
----
Public Sub ExportAsFixedFormat_Example()
ActivePresentation.ExportAsFixedFormat "C:\Users\username\Documents\test.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentScreen, msoCTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputBuildSlides, msoFalse, , , , False, False, False, False, False
End Sub
----
在運行時可能會出現下面的錯誤：
究其原因，應是教案上參數設置過多，將ppFixedFormatIntentScreen后面的多余參數全部刪除即可。
這里是本文引用的簡化過后的代碼，可以有效運行，不出錯誤。
http://www.free-power-point-templates.com/articles/vba-macro-save-a-powerpoint-presentation-to-pdf-programmatically/
END
添加一鍵運行宏命令功能
方法有二：
1. 文件→選項→自定義功能區→從下列位置選擇命令→宏→添加到自定義菜單中。
2. 文件→選項→快速訪問工具欄→從下列位置選擇命令→宏→添加到自定義菜單中。
注意事項：宏命令生成的按鈕，不管是在常用工具欄中，還是在快速啟動工具欄中，一般都只能在打開有宏命令的文件后，在活動的ppt文件中運行。
含有宏命令的PowerPoint2013文件需要保存為pptm格式，才能保存宏的vba代碼。
END
擴展應用
可以結合Excel數據清單，用ppt設計好圣誕賀卡后，快速轉換為pdf，發給客戶。
準備數據清單：字段名：
公司,姓名,稱呼,電郵等
在已經設置好賀卡的ppt中，打開”開發工具“功能，運行宏，添加代碼如下：
Sub PDF()
ActivePresentation.ExportAsFixedFormat "C:\Users\Users\Desktop\christmas2015.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentScreen
End Sub
目錄中路徑代碼可以更改，本處為默認的桌面位置。
然后將ppt另存為pptm文件。
用上面的操作”添加一鍵運行宏命令功能“，來添加臨時的生成pdf的按鈕，可以將ppt一鍵生成pdf到桌面。
修改相應的稱謂，生成pdf后，將桌面的christmas2015.pdf拖動到郵件中。
發送郵件成功后，再將稱謂修改為另一客戶的，一鍵生成christmas2015.pdf覆蓋桌面原有文件。依次操作，知道快速發送完所有電子版pdf的賀卡。
ppt生成的pdf文件，如背景沒有空白，pdf也沒有空白。
如用虛擬軟件如pdffactory、bullzip等打印背景沒有空白的ppt，多數pdf將在pdf的四邊留下空白邊框。
猜你感興趣：