I have a wide spreadsheet that I need to paste into powerpoint from
excel. I have read about the limitations but thought this was fixed
in Office 2002. Below is my code any help would be greatly
appreciated.

'Launch Powerpoint
Set ppt = CreateObject("PowerPoint.Application")
'Make visible
ppt.Visible = msoTrue
'Insert New Presentation
Set pst = ppt.Presentations.Add
Set ppApp = GetObject(, "Powerpoint.Application.10")

' Reference active presentation
Set PPPres = ppApp.ActivePresentation

ppApp.ActiveWindow.ViewType = ppViewSlide

'-- some processing
Worksheets(ws.Name).Range(strRange).CopyPicture
Appearance:=xlScreen, _
Format:=xlBitmap

ppApp.ActivePresentation.Slides(iSlides).Shapes.Pa ste

ppApp.ActivePresentation.Slides(iSlides).Shapes.Ra nge.Top = 10
ppApp.ActivePresentation.Slides(iSlides).Shapes.Ra nge.Left = 10

ppApp.ActivePresentation.Slides(iSlides).Shapes.Ra nge.ScaleWidth
dScale, True
ppApp.ActivePresentation.Slides(iSlides).Shapes.Ra nge.ScaleHeight
dScale, True

ppApp.ActivePresentation.Slides(iSlides).Shapes.Ra nge.Align
msoAlignCenters, _
True