excel vba paste screenshot in ms paint -


hi have vba code take screenshot in website, , paste in ms paint copy again paste in ms access database. right im trying paste screenshot on ms paint not working.

here's part of code i'll screenshot open mspaint paste:

keybd_event vk_menu, 0, 0, 0 keybd_event vk_snapshot, 0, 0, 0 keybd_event vk_snapshot, 0, keyeventf_keyup, 0 keybd_event vk_menu, 0, keyeventf_keyup, 0  'open mspaint shell "c:\windows\system32\mspaint.exe", 1  application.sendkeys "^v" 

digging little more, should work

'your code screenshot dim wshshell object set wshshell = createobject("wscript.shell") wshshell.run "mspaint"  application.wait + timevalue("00:00:01")  wshshell.appactivate "paint" application.wait + timevalue("00:00:01")  wshshell.sendkeys "^(v)"  application.wait + timevalue("00:00:01")