Power Point Последовательный запуск презентаций

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Mirra
Сообщения: 2
Зарегистрирован: 09 окт 2006, 11:56

09 окт 2006, 12:12

Была создана большая по объёму презентация и пришлось разбить её на несколько более мелких - ибо жутко тормозит. Возможно ли и если возможно то как организовать их последовательный автоматический запуск и закрытие?
Avsha
Сообщения: 664
Зарегистрирован: 08 сен 2005, 13:47
Откуда: KZ

09 окт 2006, 15:14

посмотрите...

Изменяющиеся дата и время в PowerPoint
forum/viewtopic.php?t=4975
Аватара пользователя
Aent
Сообщения: 1108
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

09 окт 2006, 18:07

Я бы порекомендовал посмотреть в сторону WSH (Windows Script Host. В XP есть если не удаляли специально ).
Пример:

Код: Выделить всё

Dim i,WshShell
Set WshShell = CreateObject("WScript.Shell")
For i = 1 to 10
    WshShell.Run "POWERPNT.EXE" /s "C:\SLIDES\S" & format(i,000) & ".ppt"",3,True
Next i
Set WshShell = Nothing
Сохраните этот код как PPTTEST.VBS и запустите.
Предполагается, что файлы презентаций лежат в каталоге C:\SLIDES и называются 001.ppt,002.ppt ... 010.ppt
Информация по WSH доступна в справочной системе Windows. Файл Script56.chm или в MSDN
Андрей Энтелис,
aentelis.livejournal.com
Mirra
Сообщения: 2
Зарегистрирован: 09 окт 2006, 11:56

10 окт 2006, 11:37

Больое спасибо за ответ!! Кажись это то, что надо!! Но мы слегка упростили код, мот кому пригодиться
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "D:\SLIDES\001.pps",3,True
WshShell.Run "D:\SLIDES\002.pps",3,True
WshShell.Run "D:\SLIDES\003.pps",3,True
Set WshShell = Nothing
Britesk
Сообщения: 0
Зарегистрирован: 22 мар 2017, 11:58

14 апр 2017, 10:35

Существует множество программ для создания презентации, но именно Power Point является самой популярной и открывает практически неограниченные возможности для пользователя. Сделать презентацию в пауэрпоинте довольно просто, если знать хотя бы азы. Почитать о том, как правильно сделать презентацию в powerpoint можно тут.
Ответить