DialogFileSummaryInfo for Powerpoint

I am working on setting up Office applications to prompt for the built-in document properties upon Saving. I have already set this up for Word and Excel using Dialogs(wdDialogFileSummaryInfo).Show & Application.Dialogs(xlDialogSummaryInfo).Show

Is there an equivalent to those two cmds for PowerPoint?

End goal: We have a Google Search appliance that requires files to be titled for better search results. We are trying to setup VBA to prompt users for a document title if it's not set upon save/Save As.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

crystal (strive4peace) - Microsoft MVP, AccessRemote Training and ProgrammingCommented:
not exactly what you asked, but can check if there is a title using

Open in new window

and if there is not, you can prompt for the value and set it
Jamie GarrochSenior Technical Consultant at BrightCarbonCommented:
You can show the Title property in the backstage using this:


Open in new window

Alternatively, you could simplify the stuff a user has to read and just get them to enter/check the title field:

Sub SetPowerPointFileTitle()
  Dim sTitle As String
  Dim sMsg As String
  Do While sTitle = ""
    If ActivePresentation.BuiltInDocumentProperties("Title") = "" Then
      sMsg = "Please enter the title for this file:"
      sMsg = "Please check/edit the title for this file:"
    End If
    sTitle = InputBox(sMsg, "Title for Google Search", ActivePresentation.BuiltInDocumentProperties("Title"))
    If sTitle = "" Then
      MsgBox "You must enter a title for Google Search to be able to index this file.", vbCritical + vbOKOnly, "Empty Title"
      ActivePresentation.BuiltInDocumentProperties("Title") = sTitle
    End If
End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
crystal (strive4peace) - Microsoft MVP, AccessRemote Training and ProgrammingCommented:
btw, there may be a default title of "PowerPoint Presentation" -- so it if it is that, then the user did not change it
OWASP Proactive Controls

Learn the most important control and control categories that every architect and developer should include in their projects.

ISCS HELPAuthor Commented:
Are there any build in events for PowerPoint for Save and Save As similar to AutoNew()/ AutoOpen()/AutoClose() and FileSave() in Word? Or will I need to setup Event Class modules similar to what you would need to do for Excel to trigger the prompt for tile on a save/saveas action?
crystal (strive4peace) - Microsoft MVP, AccessRemote Training and ProgrammingCommented:
Jamie GarrochSenior Technical Consultant at BrightCarbonCommented:
I wrote an EE article on PowerPoint event handling you may find useful:

crystal (strive4peace) - Microsoft MVP, AccessRemote Training and ProgrammingCommented:
nice article, Jamie ~

especially wonderful since help is lacking on how to create and where to put it!   ... perhaps you can add information  
Jamie GarrochSenior Technical Consultant at BrightCarbonCommented:
Thanks Crystal :-) Regarding "perhaps you can add information" - did you mean add your MSDN link to my article?
ISCS HELPAuthor Commented:
Thanks Everyone, I utilized Jamie's approach from above placed in a .ppam and the Auto_Open() and an EventHandler.

All our machines have an ECM add-in installed that will trigger the Auto_Open()
crystal (strive4peace) - Microsoft MVP, AccessRemote Training and ProgrammingCommented:
glad to help

Jamie, yes -- not necessarily that link but something on MSDN the lists the object model (so few people look there and sadly the links do change a lot) since it is a good place to get to know.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft PowerPoint

From novice to tech pro — start learning today.