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.Text = HeaderText
Next
End Sub
Bookmarks