如何通过Excel激活Powerpoint演示文稿

我正在尝试使用macros将图片放入Powerpoint中，作为Excel中较大macros的最后一个阶段。

如果我把下面的代码通过PowerPoint VBA，它工作正常，但如果我尝试通过Excel（添加引用后）相同的代码，我得到这个错误消息：

运行时错误“438”：对象不支持此属性或方法

我使用的代码是：

Private Sub CommandButton1_Click() Dim applPP As PowerPoint.Application, prsntPP As PowerPoint.Presentation, TitlePage As PowerPoint.Slide Set applPP = New PowerPoint.Application applPP.Visible = True Set prsntPP = applPP.Presentations.Add Set TitlePage = prsntPP.Slides.Add(Index:=1, Layout:=ppLayoutTitle) Dim oSlide As PowerPoint.Slide Dim oPicture As PowerPoint.Shape Set oSlide = ActiveWindow.Presentation.Slides(1) Set oPicture = oSlide.Shapes.AddPicture("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg", _ msoFalse, msoTrue, 1, 2, 3, 4) oPicture.ScaleHeight 0.9, msoTrue oPicture.ScaleWidth 0.9, msoTrue With ActivePresentation.PageSetup oPicture.Left = (.SlideWidth \ 2) - (oPicture.Width \ 2) oPicture.Top = (.SlideHeight \ 2) - (oPicture.Height \ 2) End With End Sub 

我得到一个错误popup“Set oSlide = ActiveWindow.Presentation.Slides（1）”

任何人都可以向我解释为什么这是，并build议修复？ 谢谢，Btubnfj