How to create Full HD (1080p+) Image or Video from your PowerPoint presentation

This video will show you how to export PowerPoint slides to an image or a video in Full HD and other resolutions.

PowerPoint is super easy to use and flexible. I normally use it to design UI background, thumbnails or art for social media like Youtube or Facebook and for making presentations. After the design is complete, I export it using a small VBA program which I'll also cover in this short video.

Subscribe Now!
New videos every Weekend!

Like what I do? Donate

Did I help you? Did one of my tutorials save you sometime? 

You can say thank you by buying me a cup of coffee, I go through a lot of it.

Help keep Greater Good resources free for everyone. Please donate today. 

This page is not monitored so for questions please comment on the youtube video page. For suggestions email vbaa2z.team@gmail.com

Download project or source code from below link(s) Copy code / Download Project here:- https://bit.ly/2JhopOz

Option Explicit

Sub export_curent_sld()

'-----------------------------
'Thanks for downloading the code.
'Please visit our channel for a quick explainer on this code.
'Feel free to update the code as per your need and also share with your friends.
'Download free codes from http://vbaa2z.blogspot.com
'Subscribe channel: youtube.com/vbaa2z
'Author: L Pamai (vbaa2z.team@gmail.com)
'-----------------------------

Dim sld As Slide
Dim WPix As Long
Dim hPix As Long

WPix = 1280
hPix = 768

Set sld = ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideIndex)
   sld.Export "D:\YT_Tut_Project_Files\PPT\PPT-2 - FULL HD\" & "test_" & sld.Name & ".jpg", "JPG", WPix, hPix
Set sld = Nothing

End Sub

Sub export_all_slide()

Dim sld As Slide
Dim WPix As Long
Dim hPix As Long

WPix = 1280
hPix = 768

For Each sld In ActivePresentation.Slides
   sld.Export "D:\YT_Tut_Project_Files\PPT\PPT-2 - FULL HD\New\" & sld.Name & ".jpg", "JPG", WPix, hPix
Next sld

End Sub


Sub export_to_vid()

ActivePresentation.CreateVideo "D:\YT_Tut_Project_Files\PPT\PPT-2 - FULL HD\New\sampleVid.mp4", True, 5, 1080, 25, 100

End Sub