office PPT 輸出影片

參考資料
https://answers.microsoft.com/en-us/msoffice/forum/msoffice_powerpoint-mso_win10/powerpoint-high-quality-full-hd-video-export-in/5794b956-7a97-4215-a05f-2093ddec2171

https://docs.microsoft.com/zh-tw/office/vba/api/powerpoint.presentation.createvideo

1. Open the Visual Basic Editor (ALT + F11).
2. Click "Insert -> Module" and past the attached.
3. Save the module and go back to Power Point.
4. Go to "View -> Macros -> Run" (Or Click ALT + F8) and chose "MakeMp4Video".
5. Chose Run and let the program run.
6. The output will be named "Test.mp4" and placed on the Desktop.

簡單說
1. 在PPT按 ALT + F11 會出現巨集的編輯畫面
2. 插入 -> 模組, 然後把下面的code貼進去
3. 儲存簡報為 "含有巨集的簡報"  (預設是不含巨集)
4. 在PPT按 ALT + F8, 會出現執行巨集的選項, 選MakeMp4Video再按執行 (這個是自訂function的名稱, 可以自己改)
5. 然後就等PPT慢慢跑
6. 跑完之後, 桌面就多一個檔案了~ XD

詳細的參數說明可以看這個網頁: https://docs.microsoft.com/zh-tw/office/vba/api/powerpoint.presentation.createvideo


使用這種方法, 就算不是office365也可以輸出4K影片了~
網路上說office2013可以用, 我自己用大量授權版的2016也可以輸出


下面參數是4K + 60FPS, 請小心使用(!?) XD

====================================================
Sub MakeMp4Video()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\video.mp4", _
UseTimingsAndNarrations:=True, _
DefaultSlideDuration:=7, _
VertResolution:=2160, _
FramesPerSecond:=60, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub
====================================================