VBA 將多個 Powerpoint 演示文稿幻燈片保存為 JPG

Question

我有一個充滿 PowerPoint 演示文稿的文件夾，並希望批量打開每一個並將每張幻燈片保存為圖像。 我發現了一些我在 Excel 中作為宏運行的代碼，以另存為 PDF - 我可以重新另存為 PDF 但我如何修改圖像以包括保存幻燈片？

 Option Explicit Dim oPPTApp As PowerPoint.Application Dim oPPTFile As PowerPoint.Presentation Sub Converter() Dim cnt As Integer, currfile As String Dim TrimFile As String, Path As String, FilesInPath As String _, MyFiles() As String, Fnum As Long Dim CalcMode As Long, LPosition As Long Dim StartTime As Date, EndTime As Date ThisWorkbook.Activate currfile = ActiveWorkbook.Name Windows(currfile).Activate Sheets("Sheet1").Activate StartTime = Timer Path = Range("C3").Text & "\" FilesInPath = Dir(Path & "*.pp*") If FilesInPath = "" Then MsgBox "No files found" Exit Sub End If Fnum = 0 Do While FilesInPath <> "" Fnum = Fnum + 1 ReDim Preserve MyFiles(1 To Fnum) MyFiles(Fnum) = FilesInPath FilesInPath = Dir() Loop With Application CalcMode =.Calculation.Calculation = xlCalculationManual.ScreenUpdating = False.EnableEvents = False End With If Fnum > 0 Then For Fnum = LBound(MyFiles) To UBound(MyFiles) Set oPPTApp = CreateObject("PowerPoint.Application") oPPTApp.Visible = msoTrue On Error Resume Next Set oPPTFile = oPPTApp.Presentations.Open(Path & MyFiles(Fnum)) On Error GoTo 0 If Not oPPTFile Is Nothing Then LPosition = InStr(1, oPPTFile.Name, ".") - 1 TrimFile = Left(oPPTFile.Name, LPosition) //here trying to save the slides as images myslide = oPPTFile.Slides(1).Select myslide.Export oPPTFile.Path & "\" & TrimFile & ".pdf" On Error Resume Next oPPTFile.ExportAsFixedFormat oPPTFile.Path & "\" & TrimFile & ".pdf", _ ppFixedFormatTypePDF, ppFixedFormatIntentPrint End If oPPTFile.Close Next Fnum End If With Application.ScreenUpdating = True.EnableEvents = True.Calculation = CalcMode End With oPPTApp.Quit Set oPPTFile = Nothing Set oPPTApp = Nothing EndTime = Timer MsgBox " Task succesfully completed in " & Format(EndTime - StartTime, "0.00") & " seconds" End Sub

Answer 1

您快到了。 只需在路徑和文件名之后添加 FilterName 參數。 順便說一句，我懷疑您是否需要在導出前一行中的幻燈片 select 。

myslide.Export oPPTFile.Path & "\" & TrimFile & ".jpg", "JPG"