Power Point Последовательный запуск презентаций
Модератор: Naeel Maqsudov
Была создана большая по объёму презентация и пришлось разбить её на несколько более мелких - ибо жутко тормозит. Возможно ли и если возможно то как организовать их последовательный автоматический запуск и закрытие?
- Aent
- Сообщения: 1129
- Зарегистрирован: 01 окт 2006, 14:52
- Откуда: Saratov,Russia
- Контактная информация:
Я бы порекомендовал посмотреть в сторону WSH (Windows Script Host. В XP есть если не удаляли специально ).
Пример:
Сохраните этот код как PPTTEST.VBS и запустите.
Предполагается, что файлы презентаций лежат в каталоге C:\SLIDES и называются 001.ppt,002.ppt ... 010.ppt
Информация по WSH доступна в справочной системе Windows. Файл Script56.chm или в MSDN
Пример:
Код: Выделить всё
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
Предполагается, что файлы презентаций лежат в каталоге C:\SLIDES и называются 001.ppt,002.ppt ... 010.ppt
Информация по WSH доступна в справочной системе Windows. Файл Script56.chm или в MSDN
Андрей Энтелис,
aentelis.livejournal.com
aentelis.livejournal.com
Больое спасибо за ответ!! Кажись это то, что надо!! Но мы слегка упростили код, мот кому пригодиться
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
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
Существует множество программ для создания презентации, но именно Power Point является самой популярной и открывает практически неограниченные возможности для пользователя. Сделать презентацию в пауэрпоинте довольно просто, если знать хотя бы азы. Почитать о том, как правильно сделать презентацию в powerpoint можно тут.