Can't Paste into Paint, any suggestions?

  • Thread starter Thread starter sportsguy
  • Start date Start date
S

sportsguy

Copying a range from Excel to Paint,
and then saving Paint in Png format. . . but can't get past just
pasting.


Code:
--------------------

Public Sub Paste2Paint()

On Error Resume Next

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

SendKeys "^V"
SendKeys "^S"


End Sub


--------------------


any help is appreciated

sportsguy
 
I want to copy a range of formatted cells,

mspaint starts, but Excel VBA can't manipulate it with send keys, or I
can't set the focus correctly.

any suggestions?

sportsguy
 
Back
Top