Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

DialogFileSummaryInfo for Powerpoint

Posted on 2016-09-07
10
Medium Priority
?
140 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 22
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 12

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 22
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
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

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 22

Assisted Solution

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

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 22
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 12

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 22
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

How to Use the Help Bell

Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention.  Check out this how-to article for more information.

Question has a verified solution.

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

Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
Ever wonder what it's like to get hit by ransomware? "Tom" gives you all the dirty details first-hand – and conveys the hard lessons his company learned in the aftermath.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
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…

971 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