Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Главное меню

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

Автор Vasyl Grabovsky, 05.07.2013, 11:14

« назад - далее »

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

Vasyl Grabovsky

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

bzzzu

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

Vasyl Grabovsky

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