excel + power point slide.add

[hunumununukanuka]

Dim ppApp As Object ' Declare variable to hold the reference.
Dim pp As Object

Set ppApp = CreateObject("powerpoint.application")
Set pp = ppApp.Presentations.Add(withwindow:=msoTrue)

pp.Slides.Add Index:=pp.Slides.Count + 1, Layout:=ppLayoutBlank
..............

и тут он мне выдает ошибку Slides.Add : invalid enumeration value. в чем тут дело я не понимаю, может кто подскажет почему из под Excel не хочет создавать слайд в PP. Из под PP все работает корректно.

Спасибо.

[RayShade]

Мне так кажется, что просто, у тебя в Excel не подключена библиотека PowerPoint Object Library и поэтому макрос под Excel ничего не знает о том, что такое ppLayoutBlank

[hunumununukanuka]

Спасибо. Все работает.