Export Organizational Data

[KnightStalker]

I have scrubbed the internet and searched these forums. I cannot believe
this has not been addressed before.

I am looking to export organizational data through a macro or script. Any
direction would be helpful. Recording a Macro does not show anything at all.
This is for Visio 2003 Professional.

 

[JuneTheSecond]

Are you going toexport as an image such as jpg?
If so, I wonder why you did not get recorded the macro.

 

[KnightStalker]

Ideally I would be exporting to excel or text.

 

[JuneTheSecond]

I cannot believe it is an answer you are expecting,
but next code kick the same export function.
Sub ExportORGChart()
Dim myComB As Office.CommandBar
Dim myCont As Office.CommandBarControl

Set myComB = Application.CommandBars("Menu Bar")
For Each myCont In myComB.Controls
Debug.Print myCont.Index, myCont.Caption, myCont.ID
Next
Set myCont = myComB.Controls(9) ' 9 should be proper Item from above.
myCont.Controls(9).Execute ' 9 may not need to change
End Sub

 

[John Goldsmith]

Have you had a look at the reports functionality (Data / Reports...)?

Otherwise, if you really wanted to achieve this through code you could start
off by finding the Executive shape and then walking through the connected
shapes.

I definitely recommend the first option though.

Hope that helps.

Best regards

John


John Goldsmith
www.visualSignals.typepad.co.uk
www.visualSignals.co.uk

 

[KnightStalker]

The goal here is to automate exporting the structure of a visio org chart
that is provided to us. Additional parsing of the org chart is required for
a custom process.

I believe your second option may be the only way. We cannot have any user
intervention in the process.

Thanks

 

[David Parker]

Have you checked out the sample code "Drawing Navigator Using Connections"
in the Visio SDK?
(Its under Connections heading in Visio Code Sample Library)