Converting Powerpoint to Bitmap

Question

Okay so, I have about 200 power point presentations with 1 slide in each of them located in a folder. I need to take all of the these PowerPoints and convert them into bitmaps so that way I have 200 or so individual Bitmaps. I'm really hoping someone has a nifty code I could use to do this because I don't want to manually convert each of these power points. I also need to go through the same process but instead of PowerPoints, PDFs would need to be converted.  

The end goal is to then take these bitmaps and put them into an MS Access Database to display graphics. The reason why I'm not using powerpoints is because the image quality is very poor when in a form.

Answer 1

Have a look here:

Batch: Do something to every file in a folder

http://www.pptfaq.com/FAQ00536\_Batch-\_Do\_something\_to\_every\_file\_in\_a\_folder.htm

Substitute this for the Sub MyMacro section on that page:

Sub MyMacro(strMyFile As String)

' this gets called once for each file that meets the spec

' you enter in ForEachPresentation

' strMyFile is set to the path & file name each time

    Dim oPresentation As Presentation  

    Set oPresentation = Presentations.Open(strMyFile)

' Change BMP to PNG or JPG or whatever

' Change 800, 600 to whatever width and height you want

' but make sure that it's proportional to your PPT slide size

    With oPresentation.Slides(1)

        .Export strMyFile & ".BMP", "BMP", 800, 600

    End With

    oPresentation.Close

End Sub

Answer 2

Hi,

It’s not possible to convert all of the PowerPoints into bitmaps. However you may try using Macros and check.

https://social.technet.microsoft.com/Forums/office/en-us/home?forum=powerpoint

Thank you.