Can't Paste into Paint, any suggestions?

[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

 

[Tim Williams]

Try

Range("ExecutiveSummarywFcst").CopyPicture

Tim

 

[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