How to automate to insert the document title in each slide of the powerpoint presentation using VBA

Suresh Agrawal
Suresh Agrawal used Ask the Experts™
on
I had this question after viewing Replacing text in PowerPoint 2016 using VBA.

Is it possible that I can insert a custom textbox in slide theme and it gets updated in actual slides ?
Here what I am trying to do in power point VBA which I have done successfully in Visio VBA.

I want to put the presentation file name on all slides of a presentation.  I have 50+ such presentations containing 25+ slides in each presentation.  The above code requires that I insert a text box on each of the slide manually and then it works if I run the macro.  Any suggestion how to automate the process using Powerpoint VBA ?

I do not want to change the slides theme for each presentation by inserting a text box with file name.  That would defeat the purpose of automation. Visio VBA does it very easily by using code in Auotexec module for each slidepack.
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
View Solution Only
Jamie GarrochSenior Technical Consultant at BrightCarbon

Commented:
You could simplify the process as follows:

1. Open the slide master "parent" by holding the Shift key and double-clicking the Normal view icon in the bottom right hand half of the status bar in PowerPoint.
2. Insert a text box into the parent slide of the master.
3. With the text box selected, insert the following macro (Alt+F11) and run it (Alt+F8)

' PowerPoint VBA Macro
' Author : Jamie Garroch of BrightCarbon (https://brightcarbon.com/)
' Date : 16JAN2019
' Purpose : insert the current presentation's file name into the selected shape
Sub InsertFileNameIntoSelectedShape()
  
  On Error GoTo errorhandler
  
  With ActiveWindow.Selection
    If .Type = ppSelectionShapes Or .Type = ppSelectionText Then
      With ActiveWindow.Selection.ShapeRange(1)
        If .HasTextFrame Then
          .TextFrame.TextRange.Text = ActivePresentation.Name ' or .FullName if path required
        Else
          GoTo quit
        End If
      End With
    Else
      GoTo quit
    End If
  End With
  
Exit Sub

quit:
  MsgBox "Select a shape that supprts text.", vbCritical + vbOKOnly, "Invalid Selection"
Exit Sub

errorhandler:
  MsgBox "Error :" & Err & vbCrLf & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Unhandled Error"

End Sub

Open in new window

Suresh AgrawalPresident

Author

Commented:
Hi Jamie,

Your code works. I was just wondering if the textbox (shape) in the parent slide of the master can be given a fixed name and referred to that name in the code. So that we don't have to open the master for new presentation and run this manually. Anytime a new presentation is opened, the master will update the presentation name automatically in the text box.  This code then can possibly  be run in autoexec module in ppt VBA ?

Regards

Suresh Agrawal
Suresh AgrawalPresident

Author

Commented:

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial