PowerPoint High Quality Video Export (1080p)

Anonymous
2013-08-01T16:38:05+00:00

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.

Microsoft 365 and Office | PowerPoint | For home | Windows

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
2014-02-23T17:03:30+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

Was this answer helpful?

100+ people found this answer helpful.
0 comments

54 additional answers

Sort by: Most helpful
Most helpful Newest Oldest
  1. Anonymous
    2017-01-01T18:36:23+00:00

    Sorry i forgot it.

    Run time error '-2147467259 (80004005)' :

    Method 'CreateVideo' fails when it is applied to an object '_Presentation'.

    Was this answer helpful?

    0 comments
  2. Anonymous
    2017-01-01T18:26:56+00:00

    Could you translate the error string?

    Was this answer helpful?

    0 comments
  3. Anonymous
    2017-01-01T17:46:52+00:00

    You are right.It dosen't work still.

    Was this answer helpful?

    0 comments
  4. Anonymous
    2017-01-01T17:35:32+00:00

    In your original post, I noticed your code was set as 

    FileName:=Environ("USERPROFILE") & "D:\Users\Deng\Desktop\test.wmv"

    instead of 

    FileName:=Environ("USERPROFILE") & "\Desktop\test.wmv"

    Is that still the case?

    Was this answer helpful?

    0 comments