Excel 資料轉換為 PowerPoint 投影片

Question 1

嘗試這樣的事情。我製作了一些模組，以便用工作表中的值替換投影片上文字 @COL1@ 的任何實例。請注意，未經測試的航空代碼。

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

嘗試這樣的事情。我製作了一些模組，以便用工作表中的值替換投影片上文字 @COL1@ 的任何實例。請注意，未經測試的航空代碼。

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

Question 2

PowerPoint 插件Excel導入可以將Excel資料匯入PowerPoint

它能做什麼

將 Excel 資料匯入到開啟的簡報中
方法：每張 PowerPoint 投影片一個 Excel 行，目前投影片上每個文字欄位一個儲存格
如果存在多個工作表，可以選擇從中取得資料的 Excel 工作表
如果您的 Excel 檔案的行數多於 Powerpoint 中的投影片，可以自動新增投影片
如果沒有足夠的文字欄位（形狀）來包含行中的所有數據，則會向您發出警告
適用於每個 Microsoft Office 版本

如何使用

下載加入
將其儲存在 Microsoft Office Add-In 資料夾中
提示：按Win+R並鍵入%AppData%\Roaming\Microsoft\AddIns
開啟 PowerPoint 並啟用加載項_{Excel 2003：功能表列→工具→加載項
Excel 2007：開始按鈕 → Excel 選項 → 加載項 → 下拉選單：Excel 加載項 → 前往
Excel 2010：檔案標籤 → 選項 → 加載項 → 下拉選單：Excel 加載項 → 前往}
將會彈出一個新的功能表列條目
新的導入Excel數據按鈕將彈出一個文件對話框以選擇您的 Excel 文件。
如果您有足夠的文字字段，加載項將填充它們

看看這個短片相簿來說明插件

筆記： 如果您想自訂程式碼，您必須新增註冊表項查看加載項代碼。
原始碼可以是在pastebin上查看

Answer