Excel列表PowerPoint幻燈片頭

我已經看了很多已發佈的問題，但沒有什麼比較符合我的要求。我有一個我需要用來創建PPT幻燈片的〜750個不同標題/標題的excel列表。我只需要創建一個帶標題但空白的PPT幻燈片。我對編碼非常陌生，大多數解決方案都比我需要的更復雜（即導入圖表和圖片）。任何幫助點noob在正確的方向將不勝感激:)Excel列表PowerPoint幻燈片頭

來源

2016-12-21 Forensic Gator

創建一個空白的PPT文件 - 在第一張幻燈片粘貼在一個單獨的列表與您的Excel數據，我認爲你需要的標題是在每一行。命名該表（我已經使用HeadersTable） - 您可以使用選擇窗格在主頁選項卡上找到它。

在ppt-Alt + F11中打開VBA編輯器，添加一個新模塊並運行下面的代碼。

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

來源

2016-12-21 22:27:42 lorgan

我的窮人工作筆記本電腦無法處理文件的大小。我用一個較小的文件做了一次測試，運行效果很好。謝謝！我會保存在我的圖書館這麼小的項目，直到我得到一個更強大的電腦:) –

從Excel保存到純文本文件。您可能需要將其分解爲幾個步驟，因爲PPT不會一次處理超過一定數量的這些步驟。

然後啓動PowerPoint並選擇文件|打開，文件類型：。選擇你的文本文件，讓PPT打開它。

沖洗並重復。

來源

2016-12-21 22:48:36

我能夠做到這一點，在4個單獨的項目。非常感謝！ –

Excel列表PowerPoint幻燈片頭

回答

相關問題