在MS Word中，如何使用VBA在Powerpoint中添加幻灯片

我试图在演示文稿中添加幻灯片，但出现错误

上下文： 我有一个word文件，包含200多页。每个页面包含一个图像（一个屏幕截图）。我想为MS Word文档中的每个图像创建一个PowerPoint文档；我想将图片粘贴到空白的幻灯片布局中

Sub transfert_image_from_WORD_to_PowerPoint()
'I added a Reference Object to this Module (PowerPoint)

'Variable creation
Dim pptPres As PowerPoint.Presentation
Dim pptApp As PowerPoint.Application

Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
Set pptPres = pptApp.Presentations.Add

'add Slides
Dim pptSlide As Slide
Dim pptLayout As CustomLayout

Set pptLayout = ActivePresentation.Slides(0).CustomLayout
'Set pptSlide = ActivePresentation.Slides.AddSlide(0, pptLayout)

'Word object creation to contains images.
Dim pic As InlineShape
Dim pslides As Slides

'loop through eanch Picutures in MS Word
For Each pic In ActiveDocument.InlineShapes
    pic.Select
    Selection.Copy
    'Selection.PasteAndFormat wdPasteDefault
Next

End Sub

---

我在

Set pptLayout

行中有一个错误，我不确定在创建演示对象时为什么要使用ActivePresentation。无论如何，这里是如何添加幻灯片的。使用CustomeLayouts集合的Add方法，然后可以添加幻灯片

Set pptLayout = pptPres.SlideMaster.CustomLayouts.Add(1)
Set pptSlide = pptPres.Slides.AddSlide(1, pptLayout)

---

首先添加幻灯片，然后尝试访问它？…您好@Sorceri，谢谢您的提示，但我该如何完成？我有一个错误：

ActiveX无法创建对象运行时错误：429

来自行

…幻灯片。VBA集合中的AddSlide（0，pptLayout）

基于1而不是零。因此，您不能引用幻灯片（0），因为它不存在。您需要在新创建的演示文稿中添加幻灯片（1），然后才能引用它。e、 g.谢谢@Sorceri，我被错误的语法卡住了

Set-pptLayout=ActivePresentation.Slides（1）。CustomLayout