TPE

Tavvafi@gmail.com

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

Sub ExportAnImage()

    Dim sExportFile As String
    Dim sExportType As String
    Dim lheight As Long
    Dim lwidth As Long

    ' EDIT THESE LINES:
    sExportFile = "C:\Temp\PixelAccurate.PNG"
    sExportType = "PNG"
    ' make sure that width/height is proportional to slide width/height
    lwidth = 500
    lheight = 375
    ' DON'T CHANGE ANYTHING ELSE

    With ActiveWindow.Selection.SlideRange(1)
        .Export FileName:=sExportFile, filtername:=sExportType, _
            Scalewidth:=lwidth, Scaleheight:=lheight
    End With

End Sub