Reply to thread

Message: [QUOTE="David Parker, post: 5092753"] A simple way to have a navigation window is to name each shape and then use the Drawing Explorer window. For example, a little VBA code could rename all of your shapes using the Master Name : Shape Text combunation: Dim shp as Visio.Shape Dim mst as Visio.Master For each shp in Visio.ActivePage.Shapes If not shp.Master is Nothing then shp.Name = shp.Master.Name & ":" & shp.Characters.Text End If Next shp Of course, you choose your own naming rule, expecially if you are using the FlowChart Shapes Master. [/QUOTE]