PowerPoint High Quality Video Export (1080p)

Anonymous

For years I have been using Microsoft PowerPoint as a powerful and professional presentation and animation software.

It seems to me, that its capabilities are widely underestimated, to say the least. Perhaps even by its own developers.

I'd like to know where I can find advanced video export settings in PowerPoint 2013.

Currently, the possibilities are quite limited, with an export resolution of 1280x720 being the maximum; the framerate leaves much to be desired as well.

Is there a free, convenient way of producing an HD quality video (including all the animations) without quality loss, using any Microsoft Office program?

Thank you for your support.

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Anonymous

Arne is working in C# in DotNet which if you are not a coder isn't going to work for you.

Try:

This assumes the presentation in 16:9

Open the vb editor (ALT f11)

INSERT > Module and paste in the code below

Sub MkVideo()

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then

ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\test.wmv", _

UseTimingsAndNarrations:=True, _

VertResolution:=1080, _

FramesPerSecond:=25, _

Quality:=100

Else: MsgBox "There is another conversion to video in progress"

End If

End Sub

Go back to the normal edit window VIEW > Macros > RunIt may take quite a while!

The video will be on the desktop called test.wmv

0 comments

54 additional answers

Anonymous

2014-12-05T08:45:08+00:00

If you look at my original post there's an explaination of how to use it.

There's an error in Royi's adaptation of my code so it won't compile.

Should be FramesPerSecond:**=**30 (the = is missing)

If you use it in 2010 it will appear to work but produce a wmv video with an mp4 extention. This may work in some players but can cause problems.
Was this answer helpful?

0 comments No comments
Anonymous

2014-12-05T08:23:53+00:00

What do you do with this code?
Was this answer helpful?

0 comments No comments
Anonymous

2014-12-05T08:11:50+00:00

Ok,

The following code will create an MPEG-4 video.

I think it would work on Power Point 2013 only (This is the latest Power Point at the moment):

Sub MakeMp4Video()

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then

ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\test.mp4", _

UseTimingsAndNarrations:=True, _

VertResolution:=1080, _

FramesPerSecond:=30, _

Quality:=100

Else: MsgBox "There is another conversion to video in progress"

End If

End Sub

This is based on John SR Wilson's post.

Enjoy...
Was this answer helpful?

0 comments No comments
Anonymous

2014-12-05T07:50:48+00:00

Arne is working in C# in DotNet which if you are not a coder isn't going to work for you.

Try:

This assumes the presentation in 16:9

Open the vb editor (ALT f11)

INSERT > Module and paste in the code below

Sub MkVideo()

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then

ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\test.wmv", _

UseTimingsAndNarrations:=True, _

VertResolution:=1080, _

FramesPerSecond:=25, _

Quality:=100

Else: MsgBox "There is another conversion to video in progress"

End If

End Sub

Go back to the normal edit window VIEW > Macros > RunIt may take quite a while!

The video will be on the desktop called test.wmv

Is there a way to create MP4 file (Which compression will be used?)?

I want to have 30FPS and MPEG-4 based compression.

Thank You.
Was this answer helpful?

0 comments No comments