파워포인트 2010 Full HD 동영상 만들기

파워포인트 열어서

alt+F11

VBA 작성 화면뜨면

메뉴 중에서 삽입 > 모듈

아래코드 복사 붙이기 후에

실행하면 바탕화면에 sample.mp4로 동영상파일 생성확인

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