Excel VBA操作PowerPoint报错91：未设置对象变量，求代码修正

我来帮你搞定这个错误91的问题，先拆解下你原代码里的几个核心问题：

• 用到的ppSlide和p变量既没声明也没赋值，VBA根本不知道要操作哪张幻灯片，这就是触发错误91的直接原因
• 没有指定要处理的第2到第9页幻灯片这个目标范围
• 循环变量用了i，但引用形状时却写了p，变量名混乱导致逻辑出错
• 部分对象类型未明确声明，存在后期绑定的潜在风险

修正后的完整代码 #

Sub ppt_export()
    Dim DestinationPPT As String
    Dim ppApp As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim ppSlide As PowerPoint.Slide ' 明确声明幻灯片对象
    Dim ppShape As PowerPoint.Shape ' 明确声明形状对象
    Dim slideIndex As Integer ' 幻灯片索引计数器
    Dim shpIndex As Integer ' 形状索引计数器
    
    ' 修正路径：把"你的用户名"替换成实际的系统用户名，去掉多余的反斜杠
    DestinationPPT = "C:\Users\你的用户名\Desktop\Summary.pptx"
    
    ' 优化：复用已打开的PowerPoint实例，避免重复启动进程
    On Error Resume Next
    Set ppApp = GetObject(, "PowerPoint.Application")
    On Error GoTo 0
    If ppApp Is Nothing Then
        Set ppApp = CreateObject("PowerPoint.Application")
        ppApp.Visible = True ' 让PowerPoint可见，方便调试过程
    End If
    
    ' 打开目标演示文稿
    Set ppPres = ppApp.Presentations.Open(DestinationPPT)
    
    ' 遍历第2到第9页幻灯片
    For slideIndex = 2 To 9
        Set ppSlide = ppPres.Slides(slideIndex) ' 给幻灯片对象赋值，解决错误91的核心
        
        ' 倒序删除图片（倒序遍历避免删除形状后索引混乱）
        For shpIndex = ppSlide.Shapes.Count To 1 Step -1
            Set ppShape = ppSlide.Shapes(shpIndex)
            ' 判断是否为图片类型
            If ppShape.Type = msoPicture Then
                ppShape.Delete
            End If
        Next shpIndex
    Next slideIndex

    ' --- 以下是后续可扩展的代码：将Excel工作表复制为图片粘贴到对应幻灯片 ---
    ' 示例（以第2页为例）：
    ' Sheets("目标工作表名").Range("要复制的单元格范围").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ' ppPres.Slides(2).Shapes.Paste
    ' 可根据需求循环处理第2-9页的粘贴逻辑
    
    ' 可选操作：保存并关闭演示文稿
    ' ppPres.Save
    ' ppPres.Close
    ' ppApp.Quit
    ' Set ppPres = Nothing
    ' Set ppApp = Nothing
End Sub

关键修改说明 #

• 给ppSlide对象明确赋值为指定索引的幻灯片，彻底解决"对象未设置"的错误91
• 修正了原路径中的无效字符（多余的反斜杠）
• 添加了复用已有PowerPoint实例的逻辑，减少系统资源占用
• 明确指定了第2到第9页的处理范围，符合你的需求
• 用独立的计数器变量区分幻灯片和形状的循环，避免变量名混淆
• 开启PowerPoint可见性，方便你直观调试操作过程

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