Question

MESSAGE 1

1. Using the Visual Basic Editor, create a VBA procedure named message_1 that does the following:

a. Asks the user for their name (using an Input Box).

b. Determines the number of slides in the presentation using the appropriate code.

c. Displays a message back to the user (using a Message Box) that contains the name entered and the number of slide in the presentation. The message should be something like this: (Hello Sally, there are 8 slides in this presentation!)

Answer 1

Below is the VBA code that will ask the user for name, then count the number of slides is the presentation given as path and output the result. In order to use PowerPoint presentation object you need to add the object. Follow the instruction below to add object-

1. Go to Tools -> Reference then from the dialog box check Microsoft PowerPoint 16.0 Object Libarary

2. Click ok.

Then copy paste the below code. Follow the comments for understanding.

VBA Code-

Sub message_1()
' Getting user name as input
myName = InputBox("Enter your name")
' Code to give file path to count number of slides in PPT
Dim pPath As String
Dim pCount As Integer
Dim pPowerPoint As New PowerPoint.Application
Dim pPresentation As PowerPoint.Presentation

'Full Path of your Power point presentation
pPath = ".\Team Meeting-agenda.pptx" 'For example
Set pPresentation = pPowerPoint.Presentations.Open(pPath)

'Get the total count of slides
pCount = pPresentation.Slides.Count

pPresentation.Close 'Close the power point presentation
pPowerPoint.Quit 'now quit the power point Application

'Set both the Object variables to Nothing
Set pPresentation = Nothing
Set pPowerPoint = Nothing
'Display message with total count
MsgBox "Hello " & myName & ", There are " & pCount & " slides in this presentation"

End Sub

Code screenshot-

Output (1)

Output (2)

Answer 2

Any doubt please comment me.

Answer)

I create a presentation with four slides and on the first slide I take a button, then write the code of VBA against that button. When the slide show start we will click on the button. single quotes(') is used for comments.

The code

Private Sub CommandButton1_Click()

'inputbox to Asks the user for their name
i = InputBox("Name", "Name", , 1, 1)
'ActivePresentation.Slides.Count is used to Determines the number of slides in the presentation
p = ActivePresentation.Slides.Count
'msgbox to display the message, and display the count, & is used for concatenation
MsgBox ("Hello " & i & ", there are " & p & " slides in this presentation!")
End Sub

Screenshot before presentation starts.

Screenshot after presentation starts. Click on the button