프레젠테이션을 만들고 멀티미디어 개체 및 텍스트를 사용한 특수 효과와 같은 그래픽 효과를 추가하는 도구를 제공하는 Microsoft 프레젠테이션 그래픽 제품군입니다.
파워포인트에서는 바로 지원되지는 않지만 파워포인트 내부에서 지원하는 VBA 기능을 이용하여 파워포인트 파일을 Full HD 급 동영상으로 저장이 가능합니다.
관련된 VBA는 영국 PowerPoint MVP인 John Willson이 제공해준 것입니다.
동영상으로 변환하려는 파워포인트 파일에서 Alt + F11을 눌러서 VBA 창을 실행합니다. 또는 [개발도구] 탭 - [코드] 그룹의 - [Visual Basic]을 선택합니다.
Visual Basic 대화상자의 메뉴 [삽입] - [모듈]을 선택합니다.
모듈 창에 아래의 코드를 복사한 후 붙여넣기 합니다.
Sub MkVideo()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\test.mp4", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=25, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub
* 만들고자 하는 비디오 파일이름은 위 코드 중 "\Desktop\test.mp4",에서 test 부분을 원하는 이름으로 수정하면 됩니다. 가능하면 영문으로 이름을 저장하는 것이 좋습니다. 동영상 파일 확장자도 mp4를 wmv로 변경이 가능합니다.
* 프레임 당 시간을 변경하려면 FramesPerSecond:=25, _ 에서 25의 숫자를 수정하면 됩니다.
위 코드로 입력한 Full HD 급으로 동영상을 변환하려면 [실행] 메늉[사 [Sub/사용자 정의 폼 실행 F5]를 선택합니다.
다음 단계에서 매크로 대화상자가 실행되며 [MKVideo] 항목을 선택후 [실행]을 선택하면 동영상 만들기가 시작됩니다.
파워포인트 자체의 동영상 만들기(좌)와 VBA 코드를 이용하여 만들어진 동영상(우)의 크기를 비교해 보았습니다.
▼ 좌 : 1280 X 720 / 우 : 1920 X 1080
출처 사이트에 첨부파일도 있습니다. http://powerpoint.pe.kr/220345624061