ppt2013技巧怎樣通過宏命令創(chuàng)建pdf文檔
ppt2013技巧怎樣通過宏命令創(chuàng)建pdf文檔
PPT2013是日常辦公軟件之一，里面的一些功能非常之人性化，那么大家知道如何在powerpoint2013中通過宏命令一鍵點(diǎn)擊創(chuàng)建pdf文檔?其實(shí)這還需要打開PPT的開發(fā)工具菜單，通過vba代碼及相關(guān)手動(dòng)設(shè)置來實(shí)現(xiàn)。具體方法請(qǐng)大家看一下文章，歡迎大家來到學(xué)習(xí)啦學(xué)習(xí)ppt2013通過宏命令創(chuàng)建pdf文檔的方法。
ppt2013通過宏命令創(chuàng)建pdf文檔的方法
此處以PowerPoint 2013為例，其他版本的操作略有不同。
點(diǎn)擊菜單：文件→選項(xiàng)→自定義功能區(qū)→主選項(xiàng)卡，勾選“開發(fā)工具”?；蛑苯釉谒忻钪姓业?ldquo;宏”，添加到自定義菜單中即可。
點(diǎn)擊菜單“開發(fā)工具”，可以在常用工具欄“代碼”中看到“宏”的圖標(biāo)。
END
啟用宏并輸入相應(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.在“說明”框中，鍵入宏的說明?？梢圆挥锰顚?。5.單擊“創(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:\DATA\a.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:\Users\username\Documents\test.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ù)全部刪除即可。
這里是本文引用的簡化過后的代碼，可以有效運(yùn)行，不出錯(cuò)誤。
http://www.free-power-point-templates.com/articles/vba-macro-save-a-powerpoint-presentation-to-pdf-programmatically/
END
添加一鍵運(yùn)行宏命令功能
方法有二：
1. 文件→選項(xiàng)→自定義功能區(qū)→從下列位置選擇命令→宏→添加到自定義菜單中。
2. 文件→選項(xiàng)→快速訪問工具欄→從下列位置選擇命令→宏→添加到自定義菜單中。
注意事項(xiàng)：宏命令生成的按鈕，不管是在常用工具欄中，還是在快速啟動(dòng)工具欄中，一般都只能在打開有宏命令的文件后，在活動(dòng)的ppt文件中運(yùn)行。
含有宏命令的PowerPoint2013文件需要保存為pptm格式，才能保存宏的vba代碼。
END
擴(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:\Users\Users\Desktop\christmas2015.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的四邊留下空白邊框。
猜你感興趣：