Excel – Split Excel table over multiple PowerPoint slides

Well, judging by your question, you have Office 2007.

Try to follow these steps:

• Select all slides ("Home > Select > Select All" in the menu)
• Go to the "Animations" menu, tick "Automatically after" in "Advance slide" submenu, and enter 00:01 (for testing purposes, so that you wouldn't have to wait 15 seconds)
• Click "Slide Show > From Beginning"

Make sure that you do everything exactly as described. If it still won't work, then it is some kind of bug or configuration problem.

ED2: OK, some people had the same problem with powerpoint before. Here's one solution. It's for PPT2003, but from what I've gathered "this is not a bug, it's a feature" :) So chances are that it's the same in next versions.

ED3: Yep, it seems that this is actually your problem. I've reproduced it on my presentation. If you have a single audio track you want to play across all slides, then this is what you have to do:

• Select that sound icon on your slide
• Go to "Animations" menu
• On the "Animations" submenu set "Animation:" option to "Play across slides"

If this is not your case (you have multiple audio files, or something else is different), then we'll try to find some other solution.

Hope that helps.

Try something like this. I've made a few mods so that it replaces any instance of the text @COL1@ on the slide with values from the worksheet. Untested aircode, mind you.

Sub CreateSlides()
'Open the Excel workbook. Change the filename here.
Dim OWB As New Excel.Workbook
Set OWB = Excel.Application.Workbooks.Open("C:\list.xlsx")
'Grab the first Worksheet in the Workbook
Dim WS As Excel.Worksheet
Dim sCurrentText As String
Dim oSl As Slide
Dim oSh As Shape
Set WS = OWB.Worksheets(1)
Dim i As Long
'Loop through each used row in Column A
For i = 1 To WS.Range("A65536").End(xlUp).Row
    'Copy the first slide and paste at the end of the presentation
    ActivePresentation.Slides(1).Copy
    Set oSl = ActivePresentation.Slides.Paste(ActivePresentation.Slides.Count + 1)
    sCurrentText = WS.Cells(i, 1).Value

    ' find each shape with "@COL1@" in text, replace it with value from worksheet
    For Each oSh In oSl.Shapes
      ' Make sure the shape can hold text and if is, that it IS holding text
      If oSh.HasTextFrame Then
        If oSh.TextFrame.HasText Then
          ' it's got text, do the replace
          With oSh.TextFrame.TextRange
            .Replace "@COL1@", sCurrentText
          End With
        End If
      End If
    Next
Next
End Sub