PPTのスライドを任意の解像度のPNGで出力するスクリプト（VBA）

以下のコードをVBAエディタ（Alt + F11）の標準モジュールに貼り付けてF5 で実行。

Sub ExportCurrentSlideAsPNG()
    Dim sld As Slide
    Dim exportPath As String
    Dim imgWidth As Long
    Dim imgHeight As Long
    
    ' ▼ 出力したい解像度（ピクセル単位）をここで指定します ▼
    imgWidth = 1920
    imgHeight = 1080
    ' ▲ =================================================== ▲

    On Error Resume Next
    Set sld = ActiveWindow.View.Slide
    On Error GoTo 0

    If sld Is Nothing Then
        MsgBox "スライドを選択した状態で実行してください。", vbExclamation, "エラー"
        Exit Sub
    End If

    If ActivePresentation.Path <> "" Then
        exportPath = ActivePresentation.Path & "\Slide_" & sld.SlideIndex & ".png"
    Else
        exportPath = Environ("USERPROFILE") & "\Desktop\Slide_" & sld.SlideIndex & ".png"
    End If

    sld.Export FileName:=exportPath, _
               FilterName:="PNG", _
               ScaleWidth:=imgWidth, _
               ScaleHeight:=imgHeight

    MsgBox "以下のパスに画像を保存しました。" & vbCrLf & vbCrLf & exportPath, vbInformation, "出力完了"
End Sub

出力先: 実行しているPowerPointファイルと同じフォルダに Slide_[スライド番号].png という名前で保存される（ファイルが一度も保存されていない場合はデスクトップに保存）。