ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск презентаций PowerPoint
8 сообщений из 8, страница 1 из 1
Запуск презентаций PowerPoint
    #37207986
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
Возникла необходимость запуска по очереди, одна за другой нескольких презентаций PowerPoint разной длительности (.ppt или .pps). Просто пальчиком на кнопочку можно, но желательно пальчиком только один раз, при запуске первой презентации :)
Что делать? Куда посмотреть? Где взять?
Если у читателей есть возможность показать код, нужно ли писателю приложить парочку файлов?
...
Рейтинг: 0 / 0
09.04.2011, 14:54
| Ответить | Цитировать | Написать  
Запуск презентаций PowerPoint
    #37208037
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Откуда запускать планируешь, Вить? Из PP? Или еще откуда? Как понять какие именно презентации запускать? ВЫбирать через диалоговое окно? Какая очередность показа?
...
Рейтинг: 0 / 0
09.04.2011, 15:49
| Ответить | Цитировать | Написать  
Запуск презентаций PowerPoint
    #37208082
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
В папке находятся около 50 файлов (презентации не более 5 мин. каждая) - детские обучалки-развлекалки. Запускать откуда и как, значения не имеет.
Видится так. В той же папке "запускатель". Диалоговое окно - сколько прогнать файлов или время просмотра, порядок выбора (с Х презентации или случайный выбор).
Возможно, Excel. Тогда можно набросок кода, заодно поучусь.
...
Рейтинг: 0 / 0
09.04.2011, 16:50
| Ответить | Цитировать | Написать  
Запуск презентаций PowerPoint
    #37208139
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
М-да...Не так все просто. Надо при открытии делать проверку - pps это или нет. Если нет - то перебирать файлы уже в коде. И еще отслеживать, когда автопрезентация завершилась. Пока накидал на скорую руку вот такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Auto_Play_PowerPoint()
    Dim oPP As Object, sPath As String
    Dim avFiles, li As Long
    Set oPP = CreateObject("PowerPoint.Application")
    sPath = oPP.Path
    oPP.Quit: Set oPP = Nothing
    avFiles = Application.GetOpenFilename("Power Point Files(*.ppt*;*.pps*),*.ppt*;*.pps*", , , , True)
    If VarType(avFiles) = vbBoolean Then Exit Sub
    For li = LBound(avFiles) To UBound(avFiles)
        Shell sPath & "\POWERPNT.EXE /s " & avFiles(li)
        DoEvents
    Next li
End Sub

Он просто открывает презентации. Если это автопрезентация - то она проиграется до конца, а после этого надо будет щелкнуть мышкой для завершения и сразу откроется следующая. Для обычных презентаций каждый слайд надо щелкать.
Попозже постараюсь выложить код более полноценный.
...
Рейтинг: 0 / 0
09.04.2011, 17:39
| Ответить | Цитировать | Написать  
Запуск презентаций PowerPoint
    #37208177
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
viktturВ папке находятся около 50 файлов (презентации не более 5 мин. каждая)...Более 4-х часов. Дети выдержат? ;)
...
Рейтинг: 0 / 0
09.04.2011, 18:30
| Ответить | Цитировать | Написать  
Запуск презентаций PowerPoint
    #37208182
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
Попробовал запустить с Excel. Открывается окно выбора файла, после выбора выпадают окошки "РР не может прочитать..." и пишет части полного пути к файлу.

The_PristНадо при открытии делать проверку - pps это или нет.
Если в папке будут файлы только одного типа - можно тип не проверять?
The_PristЕсли это автопрезентация - то она проиграется до конца, а после этого надо будет щелкнуть мышкой для завершения и сразу откроется следующая.
Автопереход возможен? Т.е. отследить окончание и запустить следующую.
...
Рейтинг: 0 / 0
09.04.2011, 18:38
| Ответить | Цитировать | Написать  
Запуск презентаций PowerPoint
    #37208184
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
Serge 007viktturВ папке находятся около 50 файлов (презентации не более 5 мин. каждая)...Более 4-х часов. Дети выдержат? ;)
В зависимости от количества - т средства развлечения и обучения до средства наказания :)
...
Рейтинг: 0 / 0
09.04.2011, 18:40
| Ответить | Цитировать | Написать  
Запуск презентаций PowerPoint
    #37208194
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
viktturОткрывается окно выбора файла, после выбора выпадают окошки "РР не может прочитать..." и пишет части полного пути к файлу.
Может, в sPath сразу задать путь к папке?
...
Рейтинг: 0 / 0
09.04.2011, 18:53
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск презентаций PowerPoint
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37208037&tid=2176991]:
 0ms
get settings:
 4ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 140ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 209ms
total:  426ms
созд. / загр.: 426ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]