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.
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.