新知榜官方账号
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
无
点击这里下载示例。
相关工具
相关文章
推荐
智谱新模型GLM-4.5V全面开源,玩家们有福啦!
2025-08-12 17:56
扎心文案+AI插画=爆款!揭秘8万赞视频的制作全流程
2025-08-12 10:08
GPT-5没你想的那么好,附实测体验~
2025-08-11 11:07
一站式搞定AI绘图+视频,AI短片效率飙升的秘密在这儿!
2025-08-08 09:26
打工人新神器!10款国产AI,让你告别996!
2025-08-08 09:24
豆包视觉推理深度体验,AI也能“边看边想”了!
2025-08-08 09:19
300美元的AI男友来了!马斯克的情感生意从女友做到男友
2025-08-01 17:56
Agent智能体:2025年企业新员工,月薪仅需一度电?
2025-07-30 17:49
国产GLM-4.5把AI价格打到地板价,实测强到离谱!
2025-07-30 09:08
用AI批量生成治愈系漫画,月入2000+
2025-07-29 09:59