從 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)