Create PPT slide presentation with Excel data. Chart is displayed off the slide.

[eratem]

I am trying to create slides from Excel in my Powerpoint presentation.
The code worked fine in Windows 2003.
Any help in understanding why this is not working in 2007 is appreciated.
The slides are copied into Powerpoint but they are not displayed on the slide properly. You can only see about half the slide and the rest is off the slide and not visible.
Sub UpdateGraph()

Dim SheetNum As Integer
SheetNum = ActiveWorkbook.Worksheets.Count

Dim PPapt As PowerPoint.Application
Dim PPpres As PowerPoint.Presentation
Dim rngNewRange As Excel.Range
Dim Sh As Shape

Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue
Set PPpres = oPPTApp.Presentations.Open("C:\Presentation1.ppt")
Dim SubclassArray(100, 2) As String
For y% = 1 To 99
SubclassArray(y%, 1) = Worksheets("List").Cells(y% + 2, 5).Value
SubclassArray(y%, 2) = Worksheets("List").Cells(y% + 2, 6).Value
Next

For x% = 1 To 100
Worksheets("OUT").Activate
Worksheets("OUT").Range("D2").Value = SubclassArray(x%, 2)
Set rngNewRange = Worksheets("OUT").Range("B2:L41")
rngNewRange.Select
rngNewRange.Copy

PPpres.Slides(x%).Shapes.PasteSpecial ppPasteEnhancedMetafile

PPpres.Slides(x%).Shapes(2).Height = 450
PPpres.Slides(x%).Shapes(2).Width = 654
PPpres.Slides(x%).Shapes(2).Left = 60
PPpres.Slides(x%).Shapes(2).Top = 100

Dim HeaderText As String
HeaderText = "Class: " & SubclassArray(x%, 1)

PPpres.Slides(x%).Shapes(1).TextFrame.TextRange.Te xt = HeaderText
Next
End Sub