Question

Using powerpoint VBA, Using the Visual Basic Editor, create a VBA procedure named message_2 that does the following:Create a Message Box that meets the following requirements: A Multiline Message Box with the following message: Welcome to PowerPoint! Do you wish to run this Presentation? Contains a Yes and a No button. Contains a Question Mark icon. The No button is the default button. The Message Box title reads "Run Show?". If the user clicks the Yes button, the slide show runs.

Answer 1

Answer:

Please find the Procedure code and the screenshots. Code is written for Presentation1.pptm. You will need to change the path to open the presentation 2 (or whatever presentation) appropriately in the following code. Here, it is opening the presentation from path C:\Chegg\Presentation2.pptx.

Please let me know in case of any questions or concerns.

Screenshot:

Code:

Sub message_2()
    Dim intAns As Integer
    intAns = MsgBox("Welcome to PowerPoint! Do you wish to run this Presentation?", vbYesNo + vbQuestion + vbDefaultButton2, "Run Show?")
    Select Case intAns
        Case vbYes
            'When Yes Button is clicked
            Dim powerPnt As Presentation 'Presntation Object
            Set powerPnt = Application.Presentations.Open("C:\Chegg\Presentation2.pptx") 'Open object. Change the path as appropriate for your requirement
            Application.ActivePresentation.Windows(1).WindowState = ppWindowMinimized 'Minimize active window
            powerPnt.Windows(1).WindowState = ppWindowMinimized 'Minimize the ppT slide
            powerPnt.SlideShowSettings.Run   'Run the Presentation
        Case vbNo
            'When No Button is clicked
            End 'End Application
    End Select
End Sub