Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск презентаций PowerPoint / 8 сообщений из 8, страница 1 из 1
09.04.2011, 14:54
    #37207986
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск презентаций PowerPoint
Возникла необходимость запуска по очереди, одна за другой нескольких презентаций PowerPoint разной длительности (.ppt или .pps). Просто пальчиком на кнопочку можно, но желательно пальчиком только один раз, при запуске первой презентации :)
Что делать? Куда посмотреть? Где взять?
Если у читателей есть возможность показать код, нужно ли писателю приложить парочку файлов?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.04.2011, 15:49
    #37208037
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск презентаций PowerPoint
Откуда запускать планируешь, Вить? Из PP? Или еще откуда? Как понять какие именно презентации запускать? ВЫбирать через диалоговое окно? Какая очередность показа?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.04.2011, 16:50
    #37208082
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск презентаций PowerPoint
В папке находятся около 50 файлов (презентации не более 5 мин. каждая) - детские обучалки-развлекалки. Запускать откуда и как, значения не имеет.
Видится так. В той же папке "запускатель". Диалоговое окно - сколько прогнать файлов или время просмотра, порядок выбора (с Х презентации или случайный выбор).
Возможно, Excel. Тогда можно набросок кода, заодно поучусь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.04.2011, 17:39
    #37208139
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск презентаций PowerPoint
М-да...Не так все просто. Надо при открытии делать проверку - 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, 18:30
    #37208177
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск презентаций PowerPoint
viktturВ папке находятся около 50 файлов (презентации не более 5 мин. каждая)...Более 4-х часов. Дети выдержат? ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.04.2011, 18:38
    #37208182
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск презентаций PowerPoint
Попробовал запустить с Excel. Открывается окно выбора файла, после выбора выпадают окошки "РР не может прочитать..." и пишет части полного пути к файлу.

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


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