从Excel中运行PPT

Sub PowerPointSlideshow()
    '声明并定义字符串变量(可根据需要修改).
   Dim strFilePath As String
   Dim strFileName As String
   Dim strFilePathAndName
   strFilePath = ThisWorkbook.Path & "\"
   strFileName = "SlideshowTest.pptx"
   strFilePathAndName = strFilePath & strFileName
    '验证声明的路径中是否存在声明的PowerPoint演示文稿名称
   If Len(Dir(strFilePathAndName, vbDirectory)) = 0 Then
        MsgBox "没有文件名''" & strFileName & "''" & vbCrLf & _
          "在路径 ''" &strFilePath & "''中." & vbCrLf & vbCrLf& _
          "请核对PPT" &vbCrLf & "名称, 以及在路径" &vbCrLf & _
          strFilePath & " 中的位置.",48, "不能继续 -- 没有找到文件名和路径."
        Exit Sub
   End If
    '声明和定义对象变量.
   Dim ppApp As Object
   Dim ppPres As Object
   Set ppApp = CreateObject("PowerPoint.Application")
   Set ppPres = ppApp.Presentations.Open(strFilePath & strFileName)
    '确定幻灯片的观看时间.
    '本示例为5秒.
   With ppPres.slides.Range.slideshowtransition
       .advanceontime = True
        .advancetime = 5
   End With
    '运行幻灯展示.
   ppPres.slideshowsettings.Run
    '表示PowerPoint演示文稿已保存为真,
    '如果想在不提示保存的情况下关闭它.
   ppPres.Saved = True
    '从内存中释放对象变量.
   Set ppPres = Nothing
   Set ppApp = Nothing
End Sub