開啟宏命令功能

　　此處以PowerPoint 2013為例，其他版本的操作略有不同。

　　點(diǎn)擊菜單：文件→選項(xiàng)→自定義功能區(qū)→主選項(xiàng)卡，勾選“開發(fā)工具”?；蛑苯釉谒忻钪姓业健昂辍保砑拥阶远x菜單中即可。

　　點(diǎn)擊菜單“開發(fā)工具”，可以在常用工具欄“代碼”中看到“宏”的圖標(biāo)

　　啟用宏并輸入相應(yīng)的vba代碼

　　操作步驟：1.在“開發(fā)工具”選項(xiàng)卡的“代碼”組中，單擊“宏”。如果“開發(fā)工具”選項(xiàng)卡不可用，請(qǐng)參閱顯示“開發(fā)工具”選項(xiàng)卡。2.在“宏”對(duì)話框的“宏”名稱框中，鍵入宏的名稱，如pdf。3.在“宏作用于”列表中，單擊要存儲(chǔ)宏的模板或演示文稿。默認(rèn)是活動(dòng)文檔，不用更改。4.在“說明”框中，鍵入宏的說明?？梢圆挥锰顚憽?.單擊“創(chuàng)建”打開 Visual Basic for Applications。

　　將如下----之間的代碼拷貝復(fù)制到打開的宏命令代碼窗口中，保存：----

　　Sub SaveAsPDF()

　　ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

　　End Sub

　　----代碼解釋：

　　ActivePresentation.ExportAsFixedFormat 將ppt文檔導(dǎo)出，利用參數(shù)設(shè)置導(dǎo)出為對(duì)應(yīng)的格式。

　　ActivePresentation.Path & "" & ActivePresentation.Name & ".pdf" 將ppt文檔另存為當(dāng)前目錄下的pdf，文件名同ppt。

　　此處可以將相對(duì)引用更改為混合引用，如：“D:DATA" & ActivePresentation.Name & ".pdf";

　　或絕對(duì)引用，如：D:DATAa.pdf"

　　整理代碼來源：

　　原始詳細(xì)代碼：https://msdn.microsoft.com/en-us/library/office/ff746080.aspx，有相關(guān)的一系列對(duì)應(yīng)參數(shù)、代碼的解釋，可以進(jìn)一步學(xué)習(xí)參考。

　　----之間為代碼：

　　----

　　Public Sub ExportAsFixedFormat_Example()

　　ActivePresentation.ExportAsFixedFormat "C:UsersusernameDocumentstest.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentScreen, msoCTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputBuildSlides, msoFalse, , , , False, False, False, False, False

　　End Sub

　　----

　　在運(yùn)行時(shí)可能會(huì)出現(xiàn)下面的錯(cuò)誤：

　　究其原因，應(yīng)是教案上參數(shù)設(shè)置過多，將ppFixedFormatIntentScreen后面的多余參數(shù)全部刪除即可。

　　這里是本文引用的簡(jiǎn)化過后的代碼，可以有效運(yùn)行，不出錯(cuò)誤。

　　http://www.free-power-point-templates.com/articles/vba-macro-save-a-powerpoint-presentation-to-pdf-programmatically/

　　添加一鍵運(yùn)行宏命令功能

　　方法有二：

　　1. 文件→選項(xiàng)→自定義功能區(qū)→從下列位置選擇命令→宏→添加到自定義菜單中。

　　2. 文件→選項(xiàng)→快速訪問工具欄→從下列位置選擇命令→宏→添加到自定義菜單中。

　　注意事項(xiàng)：宏命令生成的按鈕，不管是在常用工具欄中，還是在快速啟動(dòng)工具欄中，一般都只能在打開有宏命令的文件后，在活動(dòng)的ppt文件中運(yùn)行。

　　含有宏命令的PowerPoint2013文件需要保存為pptm格式，才能保存宏的vba代碼。

　　擴(kuò)展應(yīng)用

　　可以結(jié)合Excel數(shù)據(jù)清單，用ppt設(shè)計(jì)好圣誕賀卡后，快速轉(zhuǎn)換為pdf，發(fā)給客戶。

　　準(zhǔn)備數(shù)據(jù)清單：字段名：

　　公司,姓名,稱呼,電郵等

　　在已經(jīng)設(shè)置好賀卡的ppt中，打開”開發(fā)工具“功能，運(yùn)行宏，添加代碼如下：Sub PDF()

　　ActivePresentation.ExportAsFixedFormat "C:UsersUsersDesktopchristmas2015.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentScreen

　　End Sub

　　目錄中路徑代碼可以更改，本處為默認(rèn)的桌面位置。

　　然后將ppt另存為pptm文件。

　　用上面的操作”添加一鍵運(yùn)行宏命令功能“，來添加臨時(shí)的生成pdf的按鈕，可以將ppt一鍵生成pdf到桌面。

　　修改相應(yīng)的稱謂，生成pdf后，將桌面的christmas2015.pdf拖動(dòng)到郵件中。

　　發(fā)送郵件成功后，再將稱謂修改為另一客戶的，一鍵生成christmas2015.pdf覆蓋桌面原有文件。依次操作，知道快速發(fā)送完所有電子版pdf的賀卡。

　　ppt生成的pdf文件，如背景沒有空白，pdf也沒有空白。

　　如用虛擬軟件如pdffactory、bullzip等打印背景沒有空白的ppt，多數(shù)pdf將在pdf的四邊留下空白邊框。