Из MS Word, как я могу добавить слайд в Powerpoint с помощью VBA - PullRequest
Новая
       56

Из MS Word, как я могу добавить слайд в Powerpoint с помощью VBA

0 голосов
/ 15 октября 2018

Я пытаюсь добавить слайд в презентацию, но у меня появляется ошибка.

enter image description here

Контекст : Iесть файл слов, который содержит более 200 страниц.Каждая страница содержит изображение (скриншот).Я хочу создать документ PowerPoint и для каждого изображения в документе MS Word;Я хочу вставить картинку в пустой макет слайдов. 

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

1 Ответ

0 голосов
/ 15 октября 2018

Не уверен, почему вы используете ActivePresentation при создании объекта Presentation.В любом случае, вот как вы можете добавить слайд.Вы используете метод Add из коллекции CustomeLayouts, затем вы можете добавить слайд 

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