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