在Excel中将 VBA生成的当前ppt导出为pdf，再让ppt播放。

刘汐悦

在Excel中用VBA生成ppt之后，想将它先导出为pdf文件，然后再让生成的ppt播放，不如为何，总是不成功。请大侠指教。
    ' 保存PPT并导出每页为图片
    Dim outFolder As String
    Dim pptPath As String
   
    outFolder = ThisWorkbook.path & "\听默写情况_" & Format(Date, "mmdd")
    If Dir(outFolder, vbDirectory) = "" Then MkDir outFolder
    pptPath = outFolder & "\" & unitName & "听写情况公布.pptx"
    apre.SaveAs pptPath

  ' 下面一行代码，怎么弹出“无效的过程调用或参数”对话框？该怎么写才正确？

  apre.ExportAsFixedFormat pdfPath, ppFixedFormatTypePDF, ppExportAllSlides, ppPrintOutputSlides
   
    apre.SlideShowSettings.Run

不与饭圈理论

写成如下，弹出：运行时错误，类型不匹配：
    pdfPath = Left(pptPath, InStrRev(pptPath, ".")) & "pdf"
    apre.ExportAsFixedFormat path:=pdfPath, FixedFormatType:=2