Re: copy full screen PowerPoint slideshow image and paste into MS Word through vba code

In article <f695a98e-90d2-4e44-883e-33e33979ced8@xxxxxxxxxxxxxxxxxxxxxxxxxxx>,
Rc wrote:
I am trying to view a slide full screen and then print screen or
capture the screen
then change to Word
then paste the image into Word
return to ppt and repeat for the all slides
The code below gets started but the screenshot is not the full screen
and the paste part is not working.
I can't use any utilites like snagit on these PCs. Any ideas for vb
code to paste into Word from PPT?
==========================================
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
_
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C

Sub PrintScreen()
ActivePresentation.SlideShowSettings.Run
keybd_event VK_SNAPSHOT, 1, 0, 0

ReturnValue = Shell("winword.EXE", 1)
SendKeys "^(v)"
End Sub


Wouldn't you be better off using PowerPoint's Slide.Export method to export the
slide to a graphics file, then import that into Word programmatically?

--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================


.

Relevant Pages