Power Point Add Current and Total Slide Number in Footer

How to show Current and Total Slide Number in Power Point Presentation

If you want to show current slide number and total slide number in Footer:
Like : Page (current slide) of (total slide in file) so...
Page 1 of 15
Page 2 of 15
Page 3 of 15

Please follow the following step : 

Step 1 : Create Your PPT File.
Step 2 : Click on Insert Menu then Click on Slid Number Icon.

Step 3 : Click on Slide Tab, check on "Slide number" and then click on Apply to All.

Step 4 : Click on View Menu and click on Macros

Step 5 : Enter Macro Name and Click on Create

Step 6 : Copy given code in your created method.

Sub SetFooterText()

  Dim oSld As Slide

  Dim oShp As Shape

  For Each oSld In ActivePresentation.Slides

    For Each oShp In oSld.Shapes

      If oShp.Type = msoPlaceholder Then

        If oShp.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then

          oShp.TextFrame.TextRange.Text = "Page " & oSld.SlideIndex & " of " & ActivePresentation.Slides.Count

        End If

      End If

    Next

  Next

End Sub

Step 7 : Click on "run" macro.

Now you can see in footer with your  " Page 1 of 15 ".