See http://www.vbaexpress.com/forum/showthread.php?54282-Need-Visio-VBA-Code-%28Macro-%29-to-Create-an-Index-of-Names-in-Text-Boxes-%28family-tree%29
USING VISIO STANDARD 2016 TO CREATE A FAMILY TREE IN BLOCK DIAGRAM
I am building a block diagram "family three" on 11x17 inch paper in three columns for 3 generations per section. I use a text block as a page number at the bottom of each page (700 pages). I only have about 6 pages completed so far, (just starting). The text blocks have 1, 2, 3, 4, or 5 names depending on the number of "ex's". Each individual has a two-part number, "horizontal generation number.vertical list number", what I call the "gendex number."
NEEDED VISIO FEATURE NO. 1:
Since I have 700 pages of empty blocks and disconnected lines ready for adding text in those boxes I found that Visio adds a new page at the end of the pages. This is too inconvenient to drag and drop a new page to, say to page 32 from the last page position. If I am on page 32 I should be able to have the new page automatically drop in between pages 32 and 33 so the old page 33 becomes new page 34. But then there is the problem of repagination with the rest of the pages. But if the text box page number at the center bottom of the page can be automatically linked with all the other text box page numbers then they can automatically adjust the page numbers for the addition or deletion of pages. Otherwise I will have to adjust the page numbers manually.
NEEDED VISIO FEATURE NO. 2:
The name and gendex number will be together on one line or automatically on two lines swhen they are too long in a box. Is there a way to index that name and gendex number as a "text string" to create an index of the block diagram family tree the way indexing is done in Microsoft Word. Maybe you can adapt Microsoft Word's index feature into Visio to create an index the same way.
NEEDED VISIO FEATURE NO. 3:
I have a text box at the center bottom of the page serving as the page number for 700 pages. And since the page numbers would be linked to each other as suggested in Needed Visio Feature No. 1 then those linked page numbers can also be linked to the Name and Gendex numbers to create an index at the end end of the pages.
Will you add these features to Visio Standard 2016?
Email me at ki5ss@yahoo.com
Signed: Don Hamrick