通过Access VBA代码关闭PowerPoint无效，求解决方案

核心问题点 #

• 错误的演示文稿关闭语法：代码中使用.Presentation.Close，但objPPT是PowerPoint应用程序对象，不存在.Presentation属性，必须针对打开的具体演示文稿执行关闭操作。
• 依赖ActivePresentation的不可靠性：依赖活动演示文稿容易因上下文变化出现错误，应将打开的演示文稿赋值给变量实现精准操控。
• 未释放对象引用：若不手动释放PowerPoint对象引用，即使调用Quit，进程也可能残留后台。

修复后的代码 #

Sub ExportPresentation(strPath As String)
    Dim objPPT As Object
    Dim objPres As Object ' 存储打开的目标演示文稿
       
    On Error Resume Next
    Set objPPT = GetObject(, "PowerPoint.Application")

    If Err.Number <> 0 Then
        Err.Clear
        Set objPPT = CreateObject("PowerPoint.Application")
    End If
    
    ' 打开演示文稿并赋值给变量，替代ActivePresentation
    Set objPres = objPPT.Presentations.Open(strPath)
    
    With objPres
        objPPT.Visible = False ' 直接设置应用程序可见性
        .Slides(1).Export ArchiveFolderLocation & "Test" & ".jpg", "JPG"
        .SaveCopyAs2 ArchiveFolderLocation & "Test"
        .Close ' 关闭当前演示文稿
    End With
    
    objPPT.Quit ' 退出PowerPoint应用程序
    ' 释放对象引用，彻底结束进程
    Set objPres = Nothing
    Set objPPT = Nothing
End Sub

关键修复说明 #

• 精准操控演示文稿：通过Set objPres = objPPT.Presentations.Open(strPath)获取打开的演示文稿对象，避免ActivePresentation带来的不确定性。
• 正确关闭逻辑：调用objPres.Close直接关闭目标文件，替代原代码中错误的.Presentation.Close。
• 释放对象引用：最后通过Set语句清空对象变量，确保PowerPoint进程正常退出，不会残留后台。
• 简化属性调用：objPPT.Visible = False即可完成隐藏设置，无需额外添加.Application前缀，因为objPPT本身就是应用程序对象。

内容的提问来源于stack exchange，提问作者LROrr