Excel List to PowerPoint Slide Header

Question

Я просмотрел массу вопросов, которые уже были опубликованы, но ничего не подходит для того, что я ищу. У меня есть список превосходных ~ 750 различных заголовков/заголовков, которые мне нужно использовать для создания слайдов PPT. Мне просто нужно создать подзаголовок, но в противном случае - пустой слайд PPT. Я чрезвычайно новичок в кодировании, и большинство решений сложнее, чем мне нужно (т. Е. Импортировать диаграммы и рисунки). Любая помощь, чтобы указать нуб в правильном направлении, будет очень благодарна :)

Answer 1

Создайте пустой файл ppt - в первом слайд-пасте в одной таблице столбцов с вашими данными excel Ive предположил, что ваши требуемые заголовки находятся в каждой строке , Назовите таблицу (Ive использовал HeadersTable) - вы можете использовать панель выбора, чтобы сделать это на вкладке Главная.

Откройте редактор VBA в ppt - Alt + F11, добавьте новый модуль и запустите приведенный ниже код.

Sub createHeaders() 

    Dim sl As Slide 
    Dim tbl As Table 
    Dim shp As Shape 
    Dim i As Long 

    Set sl = ActivePresentation.Slides(1) 
    Set tbl = sl.Shapes("HeadersTable").Table 

    For i = 1 To tbl.Rows.Count 

     Set sl = ActivePresentation.Slides.Add(i + 1, ppLayoutTitleOnly) 
     Set shp = sl.Shapes("Title 1") 
     shp.TextFrame.TextRange.Text = tbl.Rows(i).Cells.Item(1).Shape.TextFrame.TextRange.Text 

    Next i 

End Sub 

Answer 2

Сохранить из Excel в текстовый файл. Вероятно, вам придется разбить это на пару шагов, потому что PPT не будет обрабатывать больше определенного количества из них на ходу.

Затем запустите PowerPoint и выберите Файл | Открыть, Файлы типа: . Выберите свой текстовый файл и пусть PPT откройте его.

Промыть и повторить.