Is It Possible to Create an Image of a PowerPoint Slide in Visual Basic 2010?

Hi,

I am trying to loop through all the slides in a presentation and convert them into jpeg images in a PowerPoint (2007) add-in written in Visual Basic 2010.

However, while I can take screenshots using:

 Public Function getScreenShot() As Byte()

            Dim dblScaleFactor As Double
            Dim intNewHeight As Integer
            Dim intNewWidth As Integer
            Dim imgResized As Bitmap
            Dim img As Image
            Dim ms As New MemoryStream()

            Dim picBytes As Byte()

            img = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)


            Dim g As Graphics = Graphics.FromImage(img)
            g.CopyFromScreen(0, 0, 0, 0, img.Size)
            g.Dispose()

            dblScaleFactor = 600 / img.Width
            intNewHeight = CInt(dblScaleFactor * img.Height)
            intNewWidth = CInt(dblScaleFactor * img.Width)

            imgResized = New Bitmap(intNewWidth, intNewHeight)

            g = Graphics.FromImage(imgResized)
            g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
            g.DrawImage(img, New Rectangle(0, 0, intNewWidth, intNewHeight), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel)
            g.Dispose()

            imgResized.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

            picBytes = ms.ToArray()

            Return picBytes

        End Function

Select allOpen in new window

This takes way too long.  I can also get the images exported to disk and then read them back into memory, but this is really inefficiency as well.

Searching  around I found this code that suggests you can paste a slide image into another slide:

ActivePresentation.Slides(1).Copy
ActivePresentation.Slides(2).Shapes.PasteSpecial ppPasteJPG

Select allOpen in new window

But I cannot work out how to convert a shape into a Graphics object.

Help would be greatly appreciated!

Dave