Создать презентацию из Excel

[Vasyl Grabovsky]

Необходимо скриптом из Экселя создать пустую презентацию в Паверпоинте.
Паверпоинт получается создать, пустую презентацию тоже но вот добавить в нее пустые слайды никак не могу. Подскажите что не так делаю. Код:

Private Sub CommandButton1_Click()
Set objppt = CreateObject("PowerPoint.Application")
objppt.Visible = True
Set PPPres = objppt.Presentations.Add
Set ppSlide = objppt.ActivePresentation.Slides.Add(1, pptLayout)

[Vasyl Grabovsky]

Нашел решение. Вопрос закрыт.

[bzzzu]

А озвучьте решение пожалуйста)

[Vasyl Grabovsky]

Set pr = CreateObject("PowerPoint.Application")
Set mpr = pr.Presentations.Add
Set ppSlide = mpr.Slides.Add(1, 12)