Activating MS paint from Excel thru VBA

**johnjohns** · 05-27-2009, 03:36 AM

Hi,
Please can somebody help me on how to call MS paint from MS excel (2003) and paste the picture in clipboard to paint and save the file in paint. Following is the macro I wrote in VBA and it is not working.

Please Login or Register  to view this content.

**royUK** · 05-27-2009, 03:42 AM

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

**royUK** · 05-27-2009, 03:45 AM

I have added Code Tags, be sure to use them yorself in future

Try this

Please Login or Register  to view this content.

**johnjohns** · 05-27-2009, 05:31 AM

My host drive is D and therefore till that part is ok. What I could no do was sending the key values to Paint. The last two lines before End Sub

Please Login or Register  to view this content.

**nemeth.gabor** · 07-19-2012, 08:33 AM

Hi,

You have to wait, take it easy....

Please Login or Register  to view this content.

**royUK** · 07-19-2012, 08:55 AM

Originally Posted by nemeth.gabor

Hi,

You have to wait, take it easy....

The thread is 3 years old[/b]

Sub Screen_Capture_VBA()
Dim Sec1 As Date, PasteYes As Integer

Sec1 = DateAdd("s", 0, Now)
Do Until Now > Sec1
DoEvents
Loop
ScreenCapture Shell "mspaint.exe", vbMaximizedFocus
Sec1 = DateAdd("s", 0, Now)
Do Until Now > Sec1
DoEvents
Loop
Application.SendKeys ("^v")
Application.SendKeys ("^s")
End Sub

Use code tags