maddy38,
Following will do the trick and place the picture in the clipboard:<pre>
Option Explicit
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT As Byte = 44
Sub test1()
'Printscreen active window
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
End Sub
Sub test2()
'Printscreen whole window
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
End Sub</pre>
Edit:
Here´s a link to Chip Pearson site for working with the ClipBoard:
http://www.cpearson.com/excel/clipboar.htm
Funny, i VB is very simpel to save pictures from the the clipboard but not in XL.
Kind regards,
Dennis
This message was edited by XL-Dennis on 2002-09-23 06:56