PowerPoint VBA copy problem

[robcarr]

Hi,

I am trying to copy a range of cells in an excel sheet, the range contains data and charts.

Windows(wrname).Activate
Sheets("sheet1").Activate
Range("a1:w46").Select
Range("a1:w46").CopyPicture XlPictureAppearance.xlScreen, XlCopyPictureFormat.xlPicture
AppActivate ppt.Name
pres.Slides(2).Select
ppt.ActiveWindow.View.Paste

all the data is within the range selected.

when pasted into PowerPoint all the right hand data is missing from column P to W.

I have tried changing to printer apperance etc, but with no luck.

Any ideas.

Hope this is of use, Rob.