Pasting to MSPaint

J

Jim Jackson

I found this bit of code in an earlier post from sportsguy and have had no
luck whatsoever getting it to work. It does activate MsPaint but the paste
process goes nowhere seemingly.

Public Sub Paste2Paint()

On Error Resume Next

Dim ActivatePaint
ActivatePaint = Shell("c:\WINNT\system32\mspaint.exe", 1)
ThisWorkbook.Activate
Range("ExecutiveSummarywFcst").Select
Application.CutCopyMode = False
Selection.Copy
AppActivate ActivatePaint

SendKeys "^V"
SendKeys "^S"


End Sub


Obviously something else is needed but I cannot find it. Any help will be
greatly appreciated.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top