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

Question

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

上下文：我有一个包含 200 多页的 word 文件。 每个页面都包含一个图像（屏幕截图）。 我想为 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行中有错误

Answer 1

不确定为什么在创建 Presentation 对象时使用 ActivePresentation。 无论如何，这是添加幻灯片的方法。 你使用CustomeLayouts集合的Add方法，然后就可以添加幻灯片了

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