?
Solved

DialogFileSummaryInfo for Powerpoint

Posted on 2016-09-07
10
Medium Priority
?
149 Views
Last Modified: 2016-09-15
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.
0
Comment
Question by:ISCS_HELP
  • 5
  • 3
  • 2
10 Comments
 
LVL 24
ID: 41787964
not exactly what you asked, but can check if there is a title using
ActivePresentation.BuiltInDocumentProperties("Title")

Open in new window

and if there is not, you can prompt for the value and set it
0
 
LVL 13

Accepted Solution

by:
Jamie Garroch earned 1000 total points
ID: 41787966
You can show the Title property in the backstage using this:

Application.DisplayDocumentInformationPanel=True

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:"
    Else
      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"
    Else
      ActivePresentation.BuiltInDocumentProperties("Title") = sTitle
    End If
  Loop
End Sub

Open in new window

0
 
LVL 24
ID: 41787975
btw, there may be a default title of "PowerPoint Presentation" -- so it if it is that, then the user did not change it
0
Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

 

Author Comment

by:ISCS_HELP
ID: 41788188
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?
0
 
LVL 24

Assisted Solution

by:crystal (strive4peace) - Microsoft MVP, Access
crystal (strive4peace) - Microsoft MVP, Access earned 1000 total points
ID: 41788212
0
 
LVL 13

Expert Comment

by:Jamie Garroch
ID: 41788423
I wrote an EE article on PowerPoint event handling you may find useful:

https://www.experts-exchange.com/articles/17410/Initializing-PowerPoint-Events-with-VBA-and-Ribbon-XML.html
1
 
LVL 24
ID: 41788443
nice article, Jamie ~

especially wonderful since help is lacking on how to create and where to put it!   ... perhaps you can add information  
https://msdn.microsoft.com/en-us/library/ff746640.aspx
0
 
LVL 13

Expert Comment

by:Jamie Garroch
ID: 41789203
Thanks Crystal :-) Regarding "perhaps you can add information" - did you mean add your MSDN link to my article?
0
 

Author Comment

by:ISCS_HELP
ID: 41799733
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()
0
 
LVL 24
ID: 41799930
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.
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Windows Explorer let you handle zip folders nearly as any other folder: Copy, move, change, and delete, etc. In VBA you can also handle normal files and folders, but zip folders takes a little more - and that you'll find here.
I came across an unsolved Outlook issue and here is my solution.
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Look below the covers at a subform control , and the form that is inside it. Explore properties and see how easy it is to aggregate, get statistics, and synchronize results for your data. A Microsoft Access subform is used to show relevant calcul…

593 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question