TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Option Explicit

' EDIT THESE TO SUIT YOUR NEEDS:

' Where should we put the images and what should we name them:
Const OutputFolder As String = "C:\Temp\"
Const ImageBaseName As String = "Slide_"

' Export dimensions in pixels:
' Longest dimension should be 3000 or so, not more
' Width/Height should be proportional to PPT's slide width/height
Const ImageWidth As Long = 2048
Const ImageHeight As Long = 1536

' Export as what format
' Can be PNG, JPG, BMP, WMF, EMF, TIF
' But TIF exports are trash in some versions of PPT
Const ImageType As String = "PNG"

Sub ExportSlides()

    Dim oSl As Slide

    For Each oSl In ActivePresentation.Slides
        oSl.Export OutputFolder & ImageBaseName _
            & Format(oSl.SlideIndex, "0000") & "." _
            & ImageType, _
            ImageType, ImageWidth, ImageHeight
    Next     ' slide

End Sub