Solved

DialogFileSummaryInfo for Powerpoint

Posted on 2016-09-07
10
70 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 18
Comment Utility
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 9

Accepted Solution

by:
Jamie Garroch earned 250 total points
Comment Utility
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 18
Comment Utility
btw, there may be a default title of "PowerPoint Presentation" -- so it if it is that, then the user did not change it
0
 

Author Comment

by:ISCS_HELP
Comment Utility
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 18

Assisted Solution

by:crystal (strive4peace) - Microsoft MVP, Access
crystal (strive4peace) - Microsoft MVP, Access earned 250 total points
Comment Utility
0
Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

 
LVL 9

Expert Comment

by:Jamie Garroch
Comment Utility
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 18
Comment Utility
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 9

Expert Comment

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

Author Comment

by:ISCS_HELP
Comment Utility
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 18
Comment Utility
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

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

As with any other System Center product, the installation for the Authoring Tool can be quite a pain sometimes. This article serves to help you avoid making these mistakes and hopefully save you a ton of time on troubleshooting :)  Step 1: Make sur…
This collection of functions covers all the normal rounding methods of just about any numeric value.
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…

772 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now