Excel data into PowerPoint slides

Question

I have already found some helpful sites but I'm still unable to do what I want. My Excel file contains few columns and multiple rows. All the data from one row would be in one slide but data from different cells in that one row should go to a specific elements in PP slide. At first, is it possible to export data from an Excel cell into a specific text box in PP? For example, I would like to have all data from the first column of each row go to a Text box 1. Let's say I have 100 rows so I would have 100 slides and each slide would have Text bow 1 with correct data. Text box of slide 66 would have data from the first column of row 66. Then all data from the second column of each row would go to a text bow 2 and so on.

I tried to do some macros with bad success. I also tried to use Word outlines and export them into PP (New slide -> Slides from Outline) but there seems to be a bug since I got 250 pages of gibberish. I had only two paragraphs and both had one word. First paragraph used Heading 1 style and second paragraph used Normal style.

Sites what I have found, use VB and/or some other programming language to create slides from Excel sheets. I have tried to add those VB codes into my macros but none of them hasn't worked so far. Probably I just don't know how to use them correctly :) Here's some helpful sites:

VBA: Create PowerPoint Slide for Each Row in Excel Workbook

Creating a Presentation Report Based on Data

Question in Stackoverflow

I use Office 2011 on Mac. Any help would be appreciated!

Answer 1

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

Answer 2

The PowerPoint Add-In Excel Import can import Excel data to PowerPoint

What it does

• imports Excel data to your open presentation
  Method: One Excel row per PowerPoint slide, one cell per text field on the current slide
• can choose the Excel sheet to take data from if multiple sheets are present
• can automatically add slides if your Excel file has more rows than slides in Powerpoint
• warns you if there aren't enough text fields (shapes) to contain all data from a row
• works with every Microsoft Office version

How to use

• Download the Add-In
• save it in your Micorsoft Office Add-In folder
  Tip: press Win+R and type %AppData%\Roaming\Microsoft\AddIns
• Open PowerPoint and enable the Add-In
  • Excel 2003: Menubar → Tools → Add-ins
  • Excel 2007: Start-button → Excel Options → Add-Ins → drop down: Excel add-ins → Go
  • Excel 2010: File tab → Options → Add-Ins → drop down: Excel add-ins → Go
• a new Menu Bar entry will pop up
  
• the new Import Excel data button will pop up a File dialog to choose your Excel file.
  If you have enough text fields, the Add-In will fill them

View this short imgur album to illustrate the Add-in

---

Note: If want to customize the code you have to add a registry key to see the Add-In code.
The source code can be viewed on pastebin

Answer 3

PPTools does not work on 64-bit, which is now standard.

PowerPoint WILL open Word Docs. And Word will open HTML.

1. In Excel, insert a column on the left.
2. Put the HTML tag <h1> in every cell in that column.
3. In a column on the extreme right, put the html tag </h1> in every cell.
4. Copy/Paste the entire sheet into notepad.
5. Add these tags at the top: <html><body>
6. Add these tags at the bottom: </body></html>
7. Search/Replace all tabs with nothing, in order to get rid of them.
8. Save that as something.html. Now close it.
9. Open it in Word.
10. Save it as something.docx
11. Now close it.
12. Open something.docx in PowerPoint (choose "all files" instead of "*.pptx").
13. PowerPoint SHOULD import the full content now, with each row as a slide.