A family of Microsoft presentation graphics products that offer tools for creating presentations and adding graphic effects like multimedia objects and special effects with text.
Zachery's reply made the AHA bulb light up.
His suggestion would only let you do one screen at a time.
BUT
As an example, have your button run this code:
Sub PasteIt()
ActivePresentation.Slides(1).Shapes.Paste
End Sub
For each screen you want to capture, press Alt + PrtScr then click the button to run the code.
You'll probably want to paste to someplace other than Slide 1 (maybe a hidden slide at the end of the presentation, for example, or mod the code to add a new slide at the end each time you invoke the code then paste to the new slide).