从Excel中运行PPT

fanjy

发布于 2022-04-13 06:03:59

1.2K00

代码可运行

运行总次数：0

代码可运行

这里可以使用下面的PowerPointSlideshow宏从Excel中运行PowerPoint演示文稿。幻灯片放映完成后，可以按Esc键或单击屏幕上的任意位置来显示仍打开的演示文稿。在宏中已放置了注释，以解释代码在执行过程中的作用，并指出可以在何处调整PowerPoint演示文稿的名称、路径位置和幻灯片放映时间。

完整的VBA代码如下：

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