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.

Please Login or Register  to view this content.

any help is appreciated

sportsguy

[Tim Williams]

Try

Range("ExecutiveSummarywFcst").CopyPicture

Tim

"sportsguy" <[email protected]> wrote in message
news:[email protected]...
>
> 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
>
>
> --
> sportsguy
> ------------------------------------------------------------------------
> sportsguy's Profile: http://www.excelforum.com/member.php...o&userid=24771
> View this thread: http://www.excelforum.com/showthread...hreadid=557989
>

[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