Question

我试图弄清楚为什么编码不起作用，但是下面的代码应该从excel的powerpoint打开，并清除现有幻灯片以替换新图片-但是我得到了以下信息：

错误91：未设置对象变量或块变量。

我尝试了Stack中的其他几个代码，但无法正常工作..请问有什么帮助吗？甲板包含幻灯片2到幻灯片9以清除。

Sub ppt_export()
Dim DestinationPPT As String
Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim objApp As Object, objSlide As Object, ObjShp As Object, objTable As` Object

DestinationPPT = "C:\Users\\Desktop\Summary.pptx"
Set ppApp = CreateObject("PowerPoint.Application")
Set ppPres = ppApp.Presentations.Open(DestinationPPT)
'delete the shapes from the renew the template

 For i = ppSlide.Shapes.Count To 1 Step -1
Set ppShape = ppSlide.Shapes(p)
If ppShape.Type = msoPicture Then ppShape.Delete
Next
End Sub

我想知道如何更正代码，以便通过将excel工作表作为图片复制到相应的幻灯片中来继续进行编码。

Answer 1

首先也是最重要的，在代码模块的顶部添加Option Explicit，它将标记您拥有的各种未声明的变量：p，{{1} }，i和ppSlide。

然后代码可能看起来像这样：

ppShape

从Excel中的PowerPoint中删除幻灯片中的图片

1 个答案: