The normal PowerPoint export function can only export 720p (1280 x 720) slide snapshots. In this tutorial, we show you an alternative way in PowerPoint to export snapshots, in 1080p resolution (or any other resolution you desire)!
Code
Sub Export1080pPNG()
Dim presentation1 As Presentation
Dim presentation1FullName As String
Dim slide1 As Slide
Set presentation1 = Application.ActiveWindow.Presentation
Set slide1 = Application.ActiveWindow.View.slide
If Application.ActiveWindow.Presentation.Path = "" Then
presentation1FullName = Environ("USERPROFILE") & "\Desktop\" & presentation1.Name
Else
presentation1FullName = Application.ActiveWindow.Presentation.FullName
End If
slide1.Export FileName:=presentation1FullName & "_" & slide1.SlideNumber & ".png", _
FilterName:="png", _
ScaleWidth:=1920, _
ScaleHeight:=1080
MsgBox ("PNG file saved successfully to " & presentation1FullName & "_" & slide1.SlideNumber & ".png.")
End Sub
