How to: Get the Titles of All the Slides in a Presentation
Applies to: Excel 2010 | Office 2010 | PowerPoint 2010 | Word 2010
In this article
Getting a PresentationDocument Object
Basic Presentation Document Structure
How the Sample Code Works
Sample Code
This topic shows how to use the classes in the Open XML SDK 2.0 for Microsoft Office to get the titles of all slides in a presentation programmatically.
The following assembly directives are required to compile the code in this topic.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Presentation;
using D = DocumentFormat.OpenXml.Drawing;
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Presentation
Imports D = DocumentFormat.OpenXml.Drawing
Getting a PresentationDocument Object
In the Open XML SDK, the PresentationDocument class represents a presentation document package. To work with a presentation document, first create an instance of the PresentationDocument class, and then work with that instance. To create the class instance from the document call the PresentationDocument.Open(String, Boolean) method that uses a file path, and a Boolean value as the second parameter to specify whether a document is editable. To open a document for read-only, specify the value false for this parameter as shown in the following using statement. In this code, the presentationFile parameter is a string that represents the path for the file from which you want to open the document.
// Open the presentation as read-only.
using (PresentationDocument presentationDocument = PresentationDocument.Open(presentationFile, false))
{
// Insert other code here.
}
' Open the presentation as read-only.
Using presentationDocument As PresentationDocument = PresentationDocument.Open(presentationFile, False)
' Insert other code here.
End Using
The using statement provides a recommended alternative to the typical .Open, .Save, .Close sequence. It ensures that the Dispose method (internal method used by the Open XML SDK to clean up resources) is automatically called when the closing brace is reached. The block that follows the using statement establishes a scope for the object that is created or named in the using statement, in this case presentationDocument.
Basic Presentation Document Structure
The basic document structure of a PresentationML document consists of the main part that contains the presentation definition. The following text from the ISO/IEC 29500 specification introduces the overall form of a PresentationML package.
A PresentationML package’s main part starts with a presentation root element. That element contains a presentation, which, in turn, refers to a slide list, a slide master list, a notes master list, and a handout master list. The slide list refers to all of the slides in the presentation; the slide master list refers to the entire slide masters used in the presentation; the notes master contains information about the formatting of notes pages; and the handout master describes how a handout looks.A handout is a printed set of slides that can be provided to an audience for future reference.As well as text and graphics, each slide can contain comments and notes, can have a layout, and can be part of one or more custom presentations. (A comment is an annotation intended for the person maintaining the presentation slide deck. A note is a reminder or piece of text intended for the presenter or the audience.)Other features that a PresentationML document can include the following: animation, audio, video, and transitions between slides.A PresentationML document is not stored as one large body in a single part. Instead, the elements that implement certain groupings of functionality are stored in separate parts. For example, all comments in a document are stored in one comment part while each slide has its own part.© ISO/IEC29500: 2008.
This following XML code segment represents a presentation that contains two slides denoted by the Id’s 267 and 256.
<p:presentation xmlns:p="…" … >
<p:sldMasterIdLst>
<p:sldMasterId
xmlns:rel="http://…/relationships" rel:id="rId1"/>
</p:sldMasterIdLst>
<p:notesMasterIdLst>
<p:notesMasterId
xmlns:rel="http://…/relationships" rel:id="rId4"/>
</p:notesMasterIdLst>
<p:handoutMasterIdLst>
<p:handoutMasterId
xmlns:rel="http://…/relationships" rel:id="rId5"/>
</p:handoutMasterIdLst>
<p:sldIdLst>
<p:sldId id="267"
xmlns:rel="http://…/relationships" rel:id="rId2"/>
<p:sldId id="256"
xmlns:rel="http://…/relationships" rel:id="rId3"/>
</p:sldIdLst>
<p:sldSz cx="9144000" cy="6858000"/>
<p:notesSz cx="6858000" cy="9144000"/>
</p:presentation>
Using the Open XML SDK 2.0, you can create document structure and content using strongly-typed classes that correspond to PresentationML elements. You can find these classes in the DocumentFormat.OpenXml.Presentation namespace. The following table lists the class names of the classes that correspond to the sld, sldLayout, sldMaster, and notesMaster elements:
PresentationML Element |
Open XML SDK 2.0 Class |
Description |
|---|---|---|
sld |
Presentation Slide. It is the root element of SlidePart. |
|
sldLayout |
Slide Layout. It is the root element of SlideLayoutPart. |
|
sldMaster |
Slide Master. It is the root element of SlideMasterPart. |
|
notesMaster |
Notes Master (or handoutMaster). It is the root element of NotesMasterPart. |
How the Sample Code Works
The sample code consists of two overloads of the method GetSlideTitles. In the first overloaded method, the presentation file is opened in the using statement. Then it passes the PresentationDocument object to the second overloaded GetSlideTitles method, which returns a list that represents the titles of all the slides in the presentation.
// Get a list of the titles of all the slides in the presentation.
public static IList<string> GetSlideTitles(string presentationFile)
{
// Open the presentation as read-only.
using (PresentationDocument presentationDocument =
PresentationDocument.Open(presentationFile, false))
{
return GetSlideTitles(presentationDocument);
}
}
' Get a list of the titles of all the slides in the presentation.
Public Shared Function GetSlideTitles(ByVal presentationFile As String) As IList(Of String)
' Open the presentation as read-only.
Using presentationDocument As PresentationDocument = PresentationDocument.Open(presentationFile, False)
Return GetSlideTitles(presentationDocument)
End Using
End Function
The second overloaded GetSlideTitles method is used to get a list of slide titles. It takes the PresentationDocument object passed in, iterates through its slides, and gets the slide IDs of all the slides in the presentation. For each slide ID, it gets a slide part to pass to the GetSlideTitle method. It returns to the first GetSlideTitles method a list of strings that it assembles from the titles, each of which represents a slide title.
// Get a list of the titles of all the slides in the presentation.
public static IList<string> GetSlideTitles(PresentationDocument presentationDocument)
{
if (presentationDocument == null)
{
throw new ArgumentNullException("presentationDocument");
}
// Get a PresentationPart object from the PresentationDocument object.
PresentationPart presentationPart = presentationDocument.PresentationPart;
if (presentationPart != null &&
presentationPart.Presentation != null)
{
// Get a Presentation object from the PresentationPart object.
Presentation presentation = presentationPart.Presentation;
if (presentation.SlideIdList != null)
{
List<string> titlesList = new List<string>();
// Get the title of each slide in the slide order.
foreach (var slideId in presentation.SlideIdList.Elements<SlideId>())
{
SlidePart slidePart = presentationPart.GetPartById(slideId.RelationshipId) as SlidePart;
// Get the slide title.
string title = GetSlideTitle(slidePart);
// An empty title can also be added.
titlesList.Add(title);
}
return titlesList;
}
}
return null;
}
' Get a list of the titles of all the slides in the presentation.
Public Shared Function GetSlideTitles(ByVal presentationDocument As PresentationDocument) As IList(Of String)
If presentationDocument Is Nothing Then
Throw New ArgumentNullException("presentationDocument")
End If
' Get a PresentationPart object from the PresentationDocument object.
Dim presentationPart As PresentationPart = presentationDocument.PresentationPart
If presentationPart IsNot Nothing AndAlso presentationPart.Presentation IsNot Nothing Then
' Get a Presentation object from the PresentationPart object.
Dim presentation As Presentation = presentationPart.Presentation
If presentation.SlideIdList IsNot Nothing Then
Dim titlesList As New List(Of String)()
' Get the title of each slide in the slide order.
For Each slideId In presentation.SlideIdList.Elements(Of SlideId)()
Dim slidePart As SlidePart = TryCast(presentationPart.GetPartById(slideId.RelationshipId), SlidePart)
' Get the slide title.
Dim title As String = GetSlideTitle(slidePart)
' An empty title can also be added.
titlesList.Add(title)
Next slideId
Return titlesList
End If
End If
Return Nothing
End Function
The method GetSlideTitle is used to get the title of each slide. It takes the slide part passed in and returns to the second overloaded GetSlideTitles method a string that represents the title of the slide.
// Get the title string of the slide.
public static string GetSlideTitle(SlidePart slidePart)
{
if (slidePart == null)
{
throw new ArgumentNullException("presentationDocument");
}
// Declare a paragraph separator.
string paragraphSeparator = null;
if (slidePart.Slide != null)
{
// Find all the title shapes.
var shapes = from shape in slidePart.Slide.Descendants<Shape>()
where IsTitleShape(shape)
select shape;
StringBuilder paragraphText = new StringBuilder();
foreach (var shape in shapes)
{
// Get the text in each paragraph in this shape.
foreach (var paragraph in shape.TextBody.Descendants<D.Paragraph>())
{
// Add a line break.
paragraphText.Append(paragraphSeparator);
foreach (var text in paragraph.Descendants<D.Text>())
{
paragraphText.Append(text.Text);
}
paragraphSeparator = "\n";
}
}
return paragraphText.ToString();
}
return string.Empty;
}
' Get the title string of the slide.
Public Shared Function GetSlideTitle(ByVal slidePart As SlidePart) As String
If slidePart Is Nothing Then
Throw New ArgumentNullException("presentationDocument")
End If
' Declare a paragraph separator.
Dim paragraphSeparator As String = Nothing
If slidePart.Slide IsNot Nothing Then
' Find all the title shapes.
Dim shapes = From shape In slidePart.Slide.Descendants(Of Shape)()
Where IsTitleShape(shape)
Select shape
Dim paragraphText As New StringBuilder()
For Each shape In shapes
' Get the text in each paragraph in this shape.
For Each paragraph In shape.TextBody.Descendants(Of D.Paragraph)()
' Add a line break.
paragraphText.Append(paragraphSeparator)
For Each text In paragraph.Descendants(Of D.Text)()
paragraphText.Append(text.Text)
Next text
paragraphSeparator = vbLf
Next paragraph
Next shape
Return paragraphText.ToString()
End If
Return String.Empty
End Function
The Boolean method IsTitleShape is called from within the method GetSlideTitle to determine whether the shape is a title shape. It takes the slide part passed in and returns true if the shape is a title shape; otherwise, it returns false.
// Determines whether the shape is a title shape.
private static bool IsTitleShape(Shape shape)
{
var placeholderShape = shape.NonVisualShapeProperties.ApplicationNonVisualDrawingProperties.GetFirstChild<PlaceholderShape>();
if (placeholderShape != null && placeholderShape.Type != null && placeholderShape.Type.HasValue)
{
switch ((PlaceholderValues)placeholderShape.Type)
{
// Any title shape.
case PlaceholderValues.Title:
// A centered title.
case PlaceholderValues.CenteredTitle:
return true;
default:
return false;
}
}
return false;
}
' Determines whether the shape is a title shape.
Private Shared Function IsTitleShape(ByVal shape As Shape) As Boolean
Dim placeholderShape = shape.NonVisualShapeProperties.ApplicationNonVisualDrawingProperties.GetFirstChild(Of PlaceholderShape)()
If placeholderShape IsNot Nothing AndAlso placeholderShape.Type IsNot Nothing AndAlso placeholderShape.Type.HasValue Then
Select Case CType(placeholderShape.Type, PlaceholderValues)
' Any title shape.
Case PlaceholderValues.Title, PlaceholderValues.CenteredTitle
' A centered title.
Return True
Case Else
Return False
End Select
End If
Return False
End Function
Sample Code
The following is the complete sample code that you can use to get the titles of the slides in a presentation file. For example you can use the following foreach statement in your program to return all the titles in the presentation file, "Myppt9.pptx."
foreach (string s in GetSlideTitles(@"C:\Users\Public\Documents\Myppt9.pptx"))
Console.WriteLine(s);
For Each s As String In GetSlideTitles("C:\Users\Public\Documents\Myppt9.pptx")
Console.WriteLine(s)
Next
The result would be a list of the strings that represent the titles in the presentation, each on a separate line.
Following is the complete sample code in both C# and Visual Basic.
// Get a list of the titles of all the slides in the presentation.
public static IList<string> GetSlideTitles(string presentationFile)
{
// Open the presentation as read-only.
using (PresentationDocument presentationDocument =
PresentationDocument.Open(presentationFile, false))
{
return GetSlideTitles(presentationDocument);
}
}
// Get a list of the titles of all the slides in the presentation.
public static IList<string> GetSlideTitles(PresentationDocument presentationDocument)
{
if (presentationDocument == null)
{
throw new ArgumentNullException("presentationDocument");
}
// Get a PresentationPart object from the PresentationDocument object.
PresentationPart presentationPart = presentationDocument.PresentationPart;
if (presentationPart != null &&
presentationPart.Presentation != null)
{
// Get a Presentation object from the PresentationPart object.
Presentation presentation = presentationPart.Presentation;
if (presentation.SlideIdList != null)
{
List<string> titlesList = new List<string>();
// Get the title of each slide in the slide order.
foreach (var slideId in presentation.SlideIdList.Elements<SlideId>())
{
SlidePart slidePart = presentationPart.GetPartById(slideId.RelationshipId) as SlidePart;
// Get the slide title.
string title = GetSlideTitle(slidePart);
// An empty title can also be added.
titlesList.Add(title);
}
return titlesList;
}
}
return null;
}
// Get the title string of the slide.
public static string GetSlideTitle(SlidePart slidePart)
{
if (slidePart == null)
{
throw new ArgumentNullException("presentationDocument");
}
// Declare a paragraph separator.
string paragraphSeparator = null;
if (slidePart.Slide != null)
{
// Find all the title shapes.
var shapes = from shape in slidePart.Slide.Descendants<Shape>()
where IsTitleShape(shape)
select shape;
StringBuilder paragraphText = new StringBuilder();
foreach (var shape in shapes)
{
// Get the text in each paragraph in this shape.
foreach (var paragraph in shape.TextBody.Descendants<D.Paragraph>())
{
// Add a line break.
paragraphText.Append(paragraphSeparator);
foreach (var text in paragraph.Descendants<D.Text>())
{
paragraphText.Append(text.Text);
}
paragraphSeparator = "\n";
}
}
return paragraphText.ToString();
}
return string.Empty;
}
// Determines whether the shape is a title shape.
private static bool IsTitleShape(Shape shape)
{
var placeholderShape = shape.NonVisualShapeProperties.ApplicationNonVisualDrawingProperties.GetFirstChild<PlaceholderShape>();
if (placeholderShape != null && placeholderShape.Type != null && placeholderShape.Type.HasValue)
{
switch ((PlaceholderValues)placeholderShape.Type)
{
// Any title shape.
case PlaceholderValues.Title:
// A centered title.
case PlaceholderValues.CenteredTitle:
return true;
default:
return false;
}
}
return false;
}
' Get a list of the titles of all the slides in the presentation.
Public Function GetSlideTitles(ByVal presentationFile As String) As IList(Of String)
' Open the presentation as read-only.
Dim presentationDocument As PresentationDocument = presentationDocument.Open(presentationFile, False)
Using (presentationDocument)
Return GetSlideTitles(presentationDocument)
End Using
End Function
' Get a list of the titles of all the slides in the presentation.
Public Function GetSlideTitles(ByVal presentationDocument As PresentationDocument) As IList(Of String)
If (presentationDocument Is Nothing) Then
Throw New ArgumentNullException("presentationDocument")
End If
' Get a PresentationPart object from the PresentationDocument object.
Dim presentationPart As PresentationPart = presentationDocument.PresentationPart
If ((Not (presentationPart) Is Nothing) _
AndAlso (Not (presentationPart.Presentation) Is Nothing)) Then
' Get a Presentation object from the PresentationPart object.
Dim presentation As Presentation = presentationPart.Presentation
If (Not (presentation.SlideIdList) Is Nothing) Then
Dim titlesList As List(Of String) = New List(Of String)
' Get the title of each slide in the slide order.
For Each slideId As Object In presentation.SlideIdList.Elements(Of SlideId)()
Dim slidePart As SlidePart = CType(presentationPart.GetPartById(slideId.RelationshipId.ToString()), SlidePart)
' Get the slide title.
Dim title As String = GetSlideTitle(slidePart)
' An empty title can also be added.
titlesList.Add(title)
Next
Return titlesList
End If
End If
Return Nothing
End Function
' Get the title string of the slide.
Public Function GetSlideTitle(ByVal slidePart As SlidePart) As String
If (slidePart Is Nothing) Then
Throw New ArgumentNullException("presentationDocument")
End If
' Declare a paragraph separator.
Dim paragraphSeparator As String = Nothing
If (Not (slidePart.Slide) Is Nothing) Then
' Find all the title shapes.
Dim shapes = From shape In slidePart.Slide.Descendants(Of Shape)() _
Where (IsTitleShape(shape)) _
Select shape
Dim paragraphText As StringBuilder = New StringBuilder
For Each shape As Object In shapes
' Get the text in each paragraph in this shape.
For Each paragraph As Object In shape.TextBody.Descendants(Of D.Paragraph)()
' Add a line break.
paragraphText.Append(paragraphSeparator)
For Each text As Object In paragraph.Descendants(Of D.Text)()
paragraphText.Append(text.Text)
Next
paragraphSeparator = "" & vbLf
Next
Next
Return paragraphText.ToString
End If
Return String.Empty
End Function
' Determines whether the shape is a title shape.
Private Function IsTitleShape(ByVal shape As Shape) As Boolean
Dim placeholderShape As Object = _
shape.NonVisualShapeProperties.ApplicationNonVisualDrawingProperties.GetFirstChild(Of PlaceholderShape)()
If ((Not (placeholderShape) Is Nothing) _
AndAlso ((Not (placeholderShape.Type) Is Nothing) _
AndAlso placeholderShape.Type.HasValue)) Then
Select Case placeholderShape.Type.Value
' Any title shape
Case PlaceholderValues.Title
Return True
' A centered title.
Case PlaceholderValues.CenteredTitle
Return True
Case Else
Return False
End Select
End If
Return False
End Function