新知榜官方账号
2023-12-02 02:49:13
本文介绍了使用Access打开PPT演示文档的方法。
能使用ACCESS打开PPT演示文档吗?如何操作?
使用Application对象(PowerPoint),即可解决。具体代码如下:
使用通用函数:
Function OpenPPT(sFileAsString, Optional bRunAsSlideShow As Boolean)'Designed by Daniel Pineault
Dim oPPT As Object
On Error Resume Next
Set oPPT = GetObject("PowerPoint.Application")
If Err.Number <> 0 Then
Err.Clear
Set oPPT = CreateObject("PowerPoint.Application")
End If
On Error GoTo Error_Handler
oPPT.Visible = True
oPPT.Presentations.Open(sFile) '打开对应的PPT演示文档
If bRunAsSlideShow Then
oPPT.ActivePresentation.SlideShowSettings.Run
End If
Error_Handler_Exit:
On Error Resume Next
Set oPPT = Nothing
Exit Function
Error_Handler:
MsgBox "The following error has occurred." & vbCrLf & vbCrLf & _
"Error Number: " & Err.Number & vbCrLf & _
"Error Source: OpenPPT" & vbCrLf & _
"Error Description: " & Err.Description, _
vbCritical, "An Error has Occurred!"
Resume Error_Handler_Exit
End Function
或者直接打开:
Private Sub Command0_Click()
Dim oPPT As Object
Set oPPT = CreateObject("PowerPoint.Application")
oPPT.Visible = True
oPPT.Presentations.Open "C:\Users\ZhiQiang.Li\Desktop\Arduino\程序设计基础PPT\IO口的高级应用.pptx"
End Sub
无
点击这里下载示例。
相关工具
相关文章
推荐
用Deepseek写AI绘图提示词,像呼吸一样简单!
2025-02-19 16:12
你以为AI绘画是黑科技?其实早成了“路边摊生意”!
2025-02-19 10:15
Flux爆火,全网最全面最详细的Flux使用教程!
2025-02-18 14:19
用AI如何创作音乐,实战教学来啦!
2025-02-17 17:23
MidJourney让你秒变绘画大神,从零开始画哪吒!
2025-02-17 14:56
AI应用新境界:让人工智能成为你的得力助手
2025-02-14 15:45
AI短片革命:当创作遇上智能,人人都能成为导演
2025-02-14 14:53
AI狂潮下的人类职场:是失业危机还是进化契机?
2025-02-13 16:53
开启影视创作新纪元,效率提升 10 倍的神器来了!
2025-02-13 15:11
深度解析DeepSeek:当AI技术照进创作产业的未来
2025-02-12 17:16