none
Open a second powerpoint presentation RRS feed

  • Question

  • I've try this code and it open my second pptx as I want but the focus is not on the new presentation. I have to clic on the presentation before I can use it...how can I make sure that when the new presentation open I'll be already able to change the slide with the arrow on my keyboard ??

    Here's my code : 

    Sub Diapo_Test()

    Dim PPT As Presentation

    Set PPT = Application.Presentations.Open(ActivePresentation.Path & "\Me Fi, Mes cix\MFMC_1\Module_1_CF_Bud- aout_20.pptx")

    Application.ActivePresentation.Windows(1).WindowState = ppWindowMinimized

    PPT.Windows(1).WindowState = ppWindowMinimized

    PPT.SlideShowSettings.Run


    End Sub

    Thank you !!

    Friday, February 9, 2018 1:20 PM

All replies

  • Hello Pete,

    Have you tried to activate opened ppt's slide show after opening it?

    Please try to test if below code could work for you.

    Sub Diapo_Test()
    Dim PPT As Presentation
    Set PPT = Application.Presentations.Open(ActivePresentation.Path & "\Me Fi, Mes cix\MFMC_1\Module_1_CF_Bud- aout_20.pptx")
    Application.ActivePresentation.Windows(1).WindowState = ppWindowMinimized
    PPT.Windows(1).WindowState = ppWindowMinimized
    PPT.SlideShowSettings.Run
    
    PPT.SlideShowWindow.Activate
    
    End Sub

    Best Regards,

    Terry


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    Monday, February 12, 2018 3:08 AM