в VBA powerpoint как добавить новый слайд в пустую презентацию

Question

в VBA powerpoint как добавить новый слайд в пустую презентацию

Я хочу добавить новый слайд к пустой презентации. Я борюсь с макетом.
Я использую следующее:

Set pptLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(1)

Set sld = ActivePresentation.Slides.AddSlide(1, pptLayout)

sld.Design = ActivePresentation.Designs(1)

Этот код прекрасно работает, когда у меня уже есть слайд в моей презентации, но у меня его нет!

Итак, мой вопрос: как я могу вставить слайд, если у меня нет уже существующего слайда, чтобы установить макет из него?
Я имею в виду, что в первой строке кода я определяю макет с помощью слайда 1, чтобы использовать его в .AddSlide

756 2

vba powerpoint powerpoint-vba

2 ответов:

Comments

Ничего не найдено.

R3uK · Accepted Answer · 2015-05-07 12:55:49

Вы можете просто использовать что-то вроде этого:
ActivePresentation.Slides.Add Index:=ActivePresentation.Slides.Count + 1, Layout:=ppLayoutCustom
С этим Вам не нужно получать макет из другого места , и вы можете изменить его, смотрите некоторые другие возможности, которые у вас есть на скриншоте:

Hrothgar · Accepted Answer · 2018-04-25 15:44:11

Вариант кода операции работает для меня

Dim appPPT As PowerPoint.Application
dim ppObj As PowerPoint.Presentation
dim slideObj As PowerPoint.Slide
dim pptLayout As CustomLayout

Set appPPT = New PowerPoint.Application
Set ppObj = appPPT.Presentations.Add
Set pptLayout = ppObj.Designs(1).SlideMaster.CustomLayouts(7)
Set slideObj = ppObj.Slides.AddSlide(1, pptLayout)