VBA保存PowerPoint遇Run-time error '91'问题求助

你提到已经成功打开PPT模板、从Excel插入图表，但执行保存新演示文稿的代码时触发了Run-time error '91': Object variable or With block variable not set，这个错误其实很常见，核心原因就是你要操作的对象（大概率是全局的PPT_pres）没有被正确初始化，处于Nothing状态就去调用它的方法了。我给你梳理下排查和解决的步骤：

1. 检查OpenPowerpoint过程的对象赋值 #

首先得确认Module4.OpenPowerpoint里有没有正确给全局的PPT和PPT_pres对象赋值。如果这个过程里只是打开了PowerPoint程序，但没把打开的演示文稿对象赋值给PPT_pres，那后续调用PPT_pres.SaveAs肯定会报错。正确的实现应该类似这样：

Sub OpenPowerpoint()
    ' 初始化PowerPoint应用对象
    Set PPT = New PowerPoint.Application
    ' 打开模板文件（注意模板后缀是.potx，普通演示文稿是.pptx）
    Set PPT_pres = PPT.Presentations.Open("C:\你的模板路径\模板文件.potx")
    
    ' 加个判断确保对象创建成功
    If PPT_pres Is Nothing Then
        MsgBox "未能成功打开PPT模板！"
        Exit Sub
    End If
End Sub

2. 在保存前先验证对象状态 #

在master过程里，调用保存代码之前，先检查PPT_pres是否已经被正确赋值，避免操作空对象：

Sub master()
    Dim fileNameString As String
    fileNameString = "C:\Users\Person\Desktop\Testfolder\Test1.pptx"
    
    Call Module4.OpenPowerpoint
    
    ' 关键检查：确认演示文稿对象存在
    If PPT_pres Is Nothing Then
        MsgBox "PPT演示文稿对象未初始化，请检查模板打开逻辑！"
        Exit Sub
    End If
    
    ' 这里是你插入图表的代码（你说已经成功，暂时默认没问题）
    
    ' 执行保存操作，用SaveAs方法保存为新名称
    On Error Resume Next
    PPT_pres.SaveAs fileNameString
    If Err.Number <> 0 Then
        MsgBox "保存失败：" & Err.Description
        Err.Clear
    End If
    On Error GoTo 0
End Sub

3. 排查全局变量的作用域冲突 #

你已经把PPT和PPT_pres声明为Public全局变量了，但要注意：不要在任何过程里重新声明同名的局部变量。比如如果某个过程里又写了Dim PPT_pres As PowerPoint.Presentation，那这个局部变量会覆盖全局变量，导致全局的PPT_pres还是Nothing。

4. 额外检查：保存路径的有效性 #

虽然这个不是91错误的直接原因，但如果fileNameString里的路径不存在（比如Testfolder没在桌面创建），保存也会失败。可以先手动确认路径是否存在，或者在代码里加路径检查逻辑。

总的来说，这个91错误的核心就是对象引用未设置，只要把全局的PPT_pres对象正确赋值，并且在操作前验证它的状态，问题就能解决。

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