Excel-Liste zu PowerPoint Slide Header

Question

Ich habe mir eine Menge Fragen angesehen, die bereits veröffentlicht wurden, aber nichts passt zu dem, wonach ich suche. Ich habe eine Excel-Liste von ~ 750 verschiedenen Titel/Kopfzeilen, die ich verwenden muss, um PPT-Folien zu erstellen. Ich muss nur eine betitelte, aber ansonsten leere PPT-Folie erstellen. Ich bin extrem neu im Codieren und die meisten Lösungen sind komplizierter als ich brauche (d. H. Importieren von Diagrammen und Bildern). Jede Hilfe, um ein Noob in die richtige Richtung zeigen würde sehr geschätzt werden :)

Answer 1

Erstellen Sie eine leere PPT-Datei - in der ersten Folie einfügen in einer einzigen Spalte Tabelle mit Ihren Excel-Daten, Ive nahm an, dass Ihre erforderlichen Header in jeder Zeile sind . Benennen Sie die Tabelle (ich habe HeaderTable verwendet) - Sie können dazu den Auswahlbereich auf der Registerkarte Start verwenden.

Öffnen Sie den VBA-Editor in ppt - Alt + F11, fügen Sie ein neues Modul hinzu und führen Sie den folgenden Code aus.

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

Speichern Sie von Excel zu einer Nur-Text-Datei. Sie müssen das wahrscheinlich in ein paar Schritten aufteilen, weil PPT nicht mehr als eine bestimmte Anzahl von diesen auf einmal handhaben wird.

Starten Sie dann PowerPoint und wählen Sie Datei | Öffnen, Dateien vom Typ: . Wählen Sie Ihre Textdatei und lassen Sie sie von PPT öffnen.

Spülen und wiederholen.