попробуйте что-то вроде этого. Я сделал несколько модов, чтобы он заменил любой экземпляр text @COL1@ на слайде значениями из рабочего листа. Непроверенные aircode, заметь.

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

Надстройка PowerPoint Excel Import импорт данных Excel в PowerPoint

что это значит

• импорт данных Excel в открытую презентацию
  
  Метод: одна строка Excel на слайд PowerPoint, одна ячейка на текстовое поле на текущем слайде
• может выбрать лист Excel, чтобы взять данные из, если несколько листов присутствуют
• может автоматически добавлять слайды, если ваш файл Excel имеет больше строк, чем слайды в Powerpoint
• предупреждает вас, если не хватает текстовых полей (фигур), чтобы содержать все данные из строки
• работает с каждой версией Microsoft Office

как использовать

• скачать Надстройки
• сохраните его в папке надстройки Micorsoft Office
  
  Совет: нажмите Win+R и тип Папке%AppData%\Роуминг\Майкрософт\Надстройки
• открыть PowerPoint и включить надстройку
  • Excel 2003: меню → Инструменты → надстройки
  • Excel 2007: пуск-кнопка → Параметры Excel → надстройки → раскрывающийся список: надстройки Excel → перейти
  • Excel 2010: вкладка Файл → Параметры → надстройки → раскрывающийся список: надстройки Excel → перейти

новый пункт меню появится up

посмотреть этот короткий альбом в imgur для иллюстрации надстройки

Примечание: если вы хотите настроить код, который вы должны добавить ключ реестра посмотреть надстройки код.

Исходный код может быть смотрели на pastebin