慶賢偷懶，我補充一下vba的方法：首先，你要把這個宏安全調到低，然後再選項-自定義功能區勾選開發工具，然後再Ofiice中點選開發工具-Visual Basic，複製下面程式碼：Sub OnSlideShowPageChange() "這個是ppt放映時自動執行的，用來開啟呼叫excel Set xlApp = New Excel.Application xlFilePath$ = ActivePresentation.Path & "\" & "date.xlsx" "date.xlsx是檔名 xlApp.Workbooks.Open xlFilePath, , False ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Text = Cells(1, 1) "Sildes後面的括號裡面是幻燈片頁數，Shapes後面的括號是當頁幻燈片中的第N個圖形，Cells後面的括號表示excel中的行列。End SubSub OnSlideShowTerminate() "播放完成後自動執行，用來關閉excel xlApp.Workbooks.Close Set xlApp = NothingEnd Sub然後儲存，放映的時候，會自動修改指定文字框內容。
慶賢偷懶，我補充一下vba的方法：首先，你要把這個宏安全調到低，然後再選項-自定義功能區勾選開發工具，然後再Ofiice中點選開發工具-Visual Basic，複製下面程式碼：Sub OnSlideShowPageChange() "這個是ppt放映時自動執行的，用來開啟呼叫excel Set xlApp = New Excel.Application xlFilePath$ = ActivePresentation.Path & "\" & "date.xlsx" "date.xlsx是檔名 xlApp.Workbooks.Open xlFilePath, , False ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Text = Cells(1, 1) "Sildes後面的括號裡面是幻燈片頁數，Shapes後面的括號是當頁幻燈片中的第N個圖形，Cells後面的括號表示excel中的行列。End SubSub OnSlideShowTerminate() "播放完成後自動執行，用來關閉excel xlApp.Workbooks.Close Set xlApp = NothingEnd Sub然後儲存，放映的時候，會自動修改指定文字框內容。