Extracting the Outline

[Richb]

The Outline pane in PP shows what basically amounts to a
table of contents for the presentation.

I need to programmatically (by accessing the PowerPoint
object via MS Visual FoxPro) extract the Title of each
slide.

The best I can tell the Title is just another Shape on
the slide, but PP must be tagging it somewhere as the
Title, otherwise how would it know what to put in the
Outline pane as the Title for a given slide?

Can someone could give me a code sample, or just point me
in the right direction, on extracting the slide Title? A
VB sample is fine, I can translate to FoxPro.

 

[Kathryn Jacobs]

Rich,
I am not a VBA expert by any means, but I do dabble. I would start by
turning on the Outline toolbar and recording a click on the summary slide
button?

--
Kathryn Jacobs, Microsoft PPT MVP
If this helped you, please take the time to rate the value of this post:
http://rate.affero.net/jacobskl/
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Kathy is a trainer, writer, Girl Scout, and whatever else there is time for
I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived

 

[Chirag]

The following routine collects the slide titles in a collection. It might
help you:

---
Sub CollectSlideTitles(ByVal Pres As Presentation, _
ByRef SldTitles As Collection)

Dim Sld As Slide
Dim SldTitle As String

For Each Sld In Pres.Slides
If Sld.Shapes.HasTitle Then
If Sld.Shapes.Title.HasTextFrame Then
If Sld.Shapes.Title.TextFrame.HasText Then
SldTitle = Sld.Shapes.Title.TextFrame.TextRange.Text
End If
End If
Else
SldTitle = Sld.Name
End If
SldTitles.Add SldTitle
Next
End Sub
---

- Chirag

PowerShow - View multiple shows simultaneously
http://officerone.tripod.com/powershow/powershow.html

 

[Rich]

Hmmm... so you are thinking of accessing the Outline
object within a PowerPoint Presentation?

Anyone have information on accessing the Outline control
in PP?

 

[Rich]

Thank you, exactly what I needed!

-----Original Message-----
The following routine collects the slide titles in a collection. It might
help you:

---
Sub CollectSlideTitles(ByVal Pres As Presentation, _
ByRef SldTitles As Collection)

Dim Sld As Slide
Dim SldTitle As String

For Each Sld In Pres.Slides
If Sld.Shapes.HasTitle Then
If Sld.Shapes.Title.HasTextFrame Then
If Sld.Shapes.Title.TextFrame.HasText Then
SldTitle = Sld.Shapes.Title.TextFrame.TextRange.Text
End If
End If
Else
SldTitle = Sld.Name
End If
SldTitles.Add SldTitle
Next
End Sub
---

- Chirag

PowerShow - View multiple shows simultaneously
http://officerone.tripod.com/powershow/powershow.html




.

 

[Steve Rindsberg, PPTMVP]

This should do it:

Export Slide Number and Title Text to a text file
http://www.rdpslides.com/pptfaq/FAQ00332.htm

--

Steve Rindsberg PPT MVP
PPTLive ( http://www.pptlive.com ) Featured Speaker
PPTools: http://www.pptools.com
PPT FAQ: http://www.pptfaq.com