Extract text from Org Chart

[Mike]

PowerPoint 2003. We've got extensive org chart material entered in Ppt
which we'd like to use in another format. How can we extract the text
from the org chart?

Thanks

Mike

 

[Shyam Pillai]

Are you seeking an automated VBA solution or a manually approach?

 

[Mike]

There are many slides, so I suppose VBA, unless there's some utility
that would do it.

 

[Shyam Pillai]

Mike,
This should work for one org chart in 2002/2003.

Dim oOrgChtShp As PowerPoint.Shape
Dim oDgm As Diagram
Dim I As Integer

Set oOrgChtShp = ActiveWindow.Selection.ShapeRange(1)
Set oDgm = oOrgChtShp.Diagram

' Enumerate the nodes and extract the text
For I = 1 To oDgm.Nodes.Count
Debug.Print oDgm.Nodes(I).TextShape.TextFrame.TextRange.Text
Next