Export Shapes as graphics
How can I export the currently selected shape or shapes, not the entire slide, to a graphics file?
First, go into the VBA editor (press Alt+F11), then press F2 to open the object browser.
Right-click in the Members of pane and put a check next to Show hidden members.
Now you can write the code you need.
To export the currently selected shape (or the first shape of a multi-shape selection) to a GIF file in C:\Workarea\filename.gif
Call ActiveWindow.Selection.ShapeRange(1).Export( _ "C:\Workarea\filename.gif", _ ppShapeFormatGIF)
Change the filename's extension and substitute different values (Intellisense will show them to you) for ppShapeFormatGIF if you want to export to other formats.
Use .ShapeRange.Export instead of .ShapeRange(1).Export to export the entire current selection to a graphics file. There will be a white or black background beween shapes, regardless of what your presentation's background might be.
This works at least as far back as PPT 2000.See How do I use VBA code in PowerPoint? to learn how to use this example code