Closed

Excel VBA Subroutine, Fix my Code: print screen clipboard paste to microsoft paint

**I need this following code to work correctly. It currently fails.

It should be able to:

1. capture a screen shot,

2. open microsoft paint,

3. paste image of screen shot to microsoft paint,

4. save file as GIF FORMAT

Use VBA found in Excel

** 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)

Private Const KEYEVENTF_KEYUP = &H2

Private Const VK_SNAPSHOT = &H2C

Private Const VK_MENU = &H12

Private Const VK_TAB = &H9

Private Const VK_V = &H56

Private Const VK_LCONTROL = &HA2

Sub AltPrintScreen()

Dim myappid

'go back to software AIMS screen (see attached file [url removed, login to view])

keybd_event VK_MENU, 0, 0, 0

keybd_event VK_TAB, 0, 0, 0

keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0

keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0

'take snap shoot of the screen and put into clipboard

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 MS PAINT

myappid = Shell("[url removed, login to view]", 1)

AppActivate myappid

SendKeys "%FS{ENTER}"

DoEvents

'paste image into MSPaint

keybd_event VK_LCONTROL, 0, 0, 0

keybd_event VK_V, 0, 0, 0

keybd_event VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0

keybd_event VK_V, 0, KEYEVENTF_KEYUP, 0

'SAVE MSPAINT FILE AS GIF

SendKeys "%FS{ENTER}"

End Sub

The description for this is not what i wanted. I made a new project.

Skills: Engineering, MySQL, PHP, Software Architecture, Software Testing

See more: paste screen print excel vba, print screen using vba access, open paint paste screen shot vba excel, vba save clipboard clipboard shell paint, vba command button code excel, excel vba screen print, screen print separations, microsoft access database development vba, excel macro find clipboard paste, screen scrape vba, screen print stage6, microsoft word automation invoice vba microsoft access, pdf print vba, print vba access 2007, web application screen print

About the Employer:
( 0 reviews ) Fairmont, United States

Project ID: #12709195

9 freelancers are bidding on average $28 for this job

ljnath

Hello, I am a professional software developer. I have read your project requirement, and i can do it. I am free and can start immediately. Please contact me with further details, and to check my work samples, visit More

$30 USD in 0 days
(39 Reviews)
5.2
$30 USD in 1 day
(44 Reviews)
5.2
catstevens2009

Hi there! Have done this type of work before and am an excel expert! Please feel free to message me with any additional information or with questions if any! Thanks! -Steve

$35 USD in 0 days
(33 Reviews)
5.3
Beannsofts

It's my duty to deliver credible work to my clients. Check my previous work in Wordpress and the responses speak for themselves. I am ready to work for you. Thank you alot.

$16 USD in 6 days
(21 Reviews)
4.4
nbprince

Hi, dear [url removed, login to view] for posting ur project and ur attention, i read ur project carefully. I can carry out ur task with the lowest budgets than anybody. I have the WP and HTML5/Mobile responsible samples and lots More

$35 USD in 1 day
(8 Reviews)
3.7
schoudhary1553

Greetings sir, i am an expert freelancer for this job and your 100% satisfaction is assured if you allow me to serve. Here is the reason. Why you should pick me? a) I am a very expert and have the same kind of ex More

$34 USD in 0 days
(5 Reviews)
3.8
ksinghrajeev

I can do this for you. Provide me the file. Ping me if you want to discuss something. Below are few examples of my work. Project Report Automation - [url removed, login to view] More

$35 USD in 1 day
(1 Review)
1.5
daschemist

Easy task. I already have a solution

$22 USD in 0 days
(0 Reviews)
0.0
anithasrikanth2

I am expert in vba

$15 USD in 1 day
(1 Review)
0.0