- Alt + F11 開啟 VBA
- Ctrl + G 呼叫 [即時運算] 視窗
- 輸入程式碼
ActivePresentation.SaveAs "<Drive>:\users\<username>\desktop\<filename>.htm", ppSaveAsHTML, msoFalse
例:
ActivePresentation.SaveAs "D:\TEST.htm", ppSaveAsHTML, msoFalse - 輸入完成按 Enter
參考網頁:
http://www.dotblogs.com.tw/chou/archive/2010/11/05/18816.aspx