Hi Jon - Thx for your website, i've found it very useful...the code seems to
work when i select less number of cell but if i try n select a slightly
larger area i get this runtime error...

"Excel cannot complete task with available resources, use lessd ata or close
other applications"

is there a way to avoid this ?

"Jon Peltier" wrote:

The example I provided copied the range as a picture, so regular pasting
would paste as a picture.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______


"Jeff" wrote in message
...

Thanks I used your site and others to do what I need to do. but--
I have not been able to paste as a Picture I only get a table.
This is my copy code and past code:

PPApp.Visible = msoTrue
Sheets("seac summary").Range("monthtomonth").Select
Set PPSlide = PPApp.ActiveWindow.View.slide
Selection.Copy

PPSlide.Shapes.PasteSpecial(ppPasteMetafilePicture ).Select

all help will be appreciated.




"Jon Peltier" wrote:

I wrote a web page about working with PowerPoint and Excel:

http://peltiertech.com/Excel/XL_PPT.html

This example on the page has, I think, what you want:

http://peltiertech.com/Excel/XL_PPT.html#rangeppt

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______


"Jeff" wrote in message
...
I have search several site for a couple of days and have not come up
with
the
code.

Does any one have the code?