Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запуск презентации в полноэкранном режиме макросом из Excel
 
#1
05.07.2016 14:25:46
Добрый день.
Может кто то подсказать, возможно ли макросом из Excel запустить уже готовую презентацию PowerPoint в полноэкранном режиме,  и после просмотра последнего слайда закрыть PowerPoint.
На просторах интернета нашел макрос от The_Prist, но что то он  у меня не поехал к сожалению.
Код
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
 
 
 
#2
05.07.2016 14:29:02
Так этот код просто открывает файлы презентаций, сохраненных как презентация с автозапуском. Вам же, как я понял, надо открыть обычный файл презентации, но в полноэкранном режиме(сэмулировать нажатие F5). Верно?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
05.07.2016 14:30:00
Да, всё верно и после последнего слайда закрыть.
 
 
 
#4
05.07.2016 14:35:44
Так открывайте средствами самого РР
Код
oPP.Presentations.Open avFiles(li)
там и полноэкранный режим настроите и все остальное.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
05.07.2016 14:40:03
Есть острая необходимость открывать презентацию именно из excel, так как открытие презентации будет происходить между выполнениями других макросов.
 
 
 
#6
05.07.2016 14:44:09
Цитата
BotExcel написал:
Есть острая необходимость открывать презентацию именно из excel
Да? А у меня есть острая необходимость по воде ходить без плота и катера. Но что-то не получается - приходится брать плав.средство.
Чем не устраивает этот ответ?
Код
oPP.Presentations.Open avFiles(li)
Вы открываете кодом из Excel презентацию, создав экземпляр РР. Иначе просто не получится, т.к. сам по себе Excel не умеет открывать презентации. Это факт. И проигрывать их самостоятельно не умеет. Ни в полноэкранном режиме, ни в каком другом.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
05.07.2016 16:11:13
Цитата
The_Prist написал:
Да? А у меня есть острая необходимость по воде ходить без плота и катера. Но что-то не получается - приходится брать плав.средство.
Как хорошо, что острота вышесказанного не уступает вашим знаниям Excel.
Спасибо, разберусь.
 
 
 
#8
09.03.2020 22:52:31
Добрый день.
Кто сможет подсказать, почему при открытии макросом из Excel презентацию PowerPoint, она открывается не в формате демонстрации, а в обычном режиме?
Презентация сохранена в формате .ppsx (демонстрация). При этом если просто открыть презентацию, то открывается в демонстрации.

Может что-то не учел в макросе
Код
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
 
 
 
#9
10.03.2020 09:00:59
Потому что надо применить код так, как показано в самом первом сообщении. Иначе не взлетит.
Код
    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
Читают тему
Наверх