Страницы: 1
RSS
Запуск презентации в полноэкранном режиме макросом из Excel
 
Добрый день.
Может кто то подсказать, возможно ли макросом из Excel запустить уже готовую презентацию PowerPoint в полноэкранном режиме,  и после просмотра последнего слайда закрыть PowerPoint.
На просторах интернета нашел макрос от The_Prist, но что то он  у меня не поехал к сожалению.
Код
1
2
3
4
5
6
7
8
9
10
11
12
13
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
 
Так этот код просто открывает файлы презентаций, сохраненных как презентация с автозапуском. Вам же, как я понял, надо открыть обычный файл презентации, но в полноэкранном режиме(сэмулировать нажатие F5). Верно?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Да, всё верно и после последнего слайда закрыть.
 
Так открывайте средствами самого РР
Код
1
oPP.Presentations.Open avFiles(li)
там и полноэкранный режим настроите и все остальное.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Есть острая необходимость открывать презентацию именно из excel, так как открытие презентации будет происходить между выполнениями других макросов.
 
Цитата
BotExcel написал:
Есть острая необходимость открывать презентацию именно из excel
Да? А у меня есть острая необходимость по воде ходить без плота и катера. Но что-то не получается - приходится брать плав.средство.
Чем не устраивает этот ответ?
Код
1
oPP.Presentations.Open avFiles(li)
Вы открываете кодом из Excel презентацию, создав экземпляр РР. Иначе просто не получится, т.к. сам по себе Excel не умеет открывать презентации. Это факт. И проигрывать их самостоятельно не умеет. Ни в полноэкранном режиме, ни в каком другом.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
The_Prist написал:
Да? А у меня есть острая необходимость по воде ходить без плота и катера. Но что-то не получается - приходится брать плав.средство.
Как хорошо, что острота вышесказанного не уступает вашим знаниям Excel.
Спасибо, разберусь.
 
Добрый день.
Кто сможет подсказать, почему при открытии макросом из Excel презентацию PowerPoint, она открывается не в формате демонстрации, а в обычном режиме?
Презентация сохранена в формате .ppsx (демонстрация). При этом если просто открыть презентацию, то открывается в демонстрации.

Может что-то не учел в макросе
Код
1
2
3
4
5
6
Private Sub Image3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim pic As Object
    Set pic = CreateObject("PowerPoint.Application")
    pic.Presentations.Open "C:\Users\Desktop\instruction2.ppsx"
    DoEvents
End Sub
 
Потому что надо применить код так, как показано в самом первом сообщении. Иначе не взлетит.
Код
1
2
3
4
5
    Dim oPP As Object, sPath As String
    Set oPP = CreateObject("PowerPoint.Application")
    sPath = oPP.Path
    oPP.Quit: Set oPP = Nothing
    Shell sPath & "\POWERPNT.EXE /s C:\Users\Desktop\instruction2.ppsx"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему
Loading...