PPT2000: Sample VB Code to Retrieve Summary Properties (222774)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. NOTE: The following macro examples work only in PowerPoint. Visual Basic for Applications macros are not supported by the Microsoft PowerPoint Viewer. For additional information, click the following article number to view the article in the Microsoft Knowledge Base: The GetSummaryProperties macro displays its results in the Immediate/Debug window. To view the output, click Immediate Window on the View menu.

Sample Visual Basic Procedure

   Sub GetSummaryProperties()

      ' Array used to store the summary properties.
      Dim SummaryProperties(1 To 9) As String

      With ActivePresentation.BuiltInDocumentProperties

         ' Get the Title.
         SummaryProperties(1) = .Item("Title").Value

         ' Get the Subject.
         SummaryProperties(2) = .Item("Subject").Value

         ' Get the Author.
         SummaryProperties(3) = .Item("Author").Value

         ' Get the Manager.
         SummaryProperties(4) = .Item("Manager").Value

         ' Get the Company.
         SummaryProperties(5) = .Item("Company").Value

         ' Get the Category.
         SummaryProperties(6) = .Item("Category").Value

         ' Get the Keywords.
         SummaryProperties(7) = .Item("Keywords").Value

         ' Get the Comments.
         SummaryProperties(8) = .Item("Comments").Value

         ' Get the Hyperlink Base.
         SummaryProperties(9) = .Item("Hyperlink Base").Value

      End With

      ' Display the properties in the Immediate window.
      ' To display the Immediate window:
      '    Click Immediate window on the View menu
      Dim i As Integer
      For i = 1 To 9

         ' Loop through the nine properties on the Summary tab.
         Debug.Print SummaryProperties(i)
      Next i

      MsgBox "To see the results, open the " _
         & "Immediate Window in the Visual Basic Editor." _
         , vbInformation, "Macro Completed"

   End Sub