This is the code (with at the end the CommandButtons) and this works, but when I add a new Combobox on another page, the codes becomes complicated and do interfere. How can I avoid that multiple codes (for the Comboboxes) interfere (with the commandbuttons), when I use this code for the ComboBoxes. Which command lines do I need to add (End sub, end function)?

‘// Combo Box Table of Contents
‘// Visio Guy
‘// http://www.visguy.com
‘// November 8th, 2006

‘// A variable for tracking pages that are
‘// about to be deleted.
Private m_deletedPageName As String

‘// This flag stops the code from jumping back
‘// to the index page every time the combo box
‘// is updated.
Private m_editingList As Boolean

Private Sub Document_RunModeEntered(ByVal doc As IVDocument)

‘// This event fires when you click the
‘// run-mode/design-mode button on the
‘// Developer Toolbar, as well as when
‘// this document gets opened or created
‘// (created = a copy is opened)

Call m_updatePageList

End Sub

Private Sub Document_BeforePageDelete(ByVal Page As IVPage)

‘// Since this event fires before the page
‘// is actually gone, we’ll save it’s name
‘// so that m_updatePageList can ignore it.

m_deletedPageName = Page.Name

Call m_updatePageList

‘// Reset m_deletedPageName to nothing:
m_deletedPageName = vbNullString

End Sub

Private Sub Document_PageAdded(ByVal Page As IVPage)

Call m_updatePageList

End Sub

Private Sub Document_PageChanged(ByVal Page As IVPage)

‘// Occurs when page-name or background is changed.
Call m_updatePageList

End Sub

Private Sub cmbPages_Change()

If m_editingList Then Exit Sub

‘// Switch the active window’s page
‘// to correspond to the user’s choice
‘// in the combo-box. Do nothing if there’s
‘// an error (i.e. the user types in a bad
‘// page name)

On Error GoTo Err

ActiveWindow.Page = cmbPages.Text

Exit Sub

Err:

End Sub

Private Sub m_updatePageList()

m_editingList = True

‘// Update the combo-box with a list of
‘// all foreground pages in this document.

Dim collPgs As Collection
Dim sPageName As Variant

Set collPgs = m_getPageList()
cmbPages.Clear

‘// Add all pages in collPgs, except a page
‘// that might have just been deleted. Such
‘// a page is stored in m_deletedPageNameName.

For Each sPageName In collPgs
If (StrComp(sPageName, m_deletedPageName, _
vbTextCompare) 0) Then
Call cmbPages.AddItem(sPageName)
End If
Next

cmbPages.Text = cmbPages.ContainingPage.Name

m_editingList = False

End Sub

Private Function m_getPageList() As Collection

‘// Return a collection of all foreground
‘// page names in this document.

Dim collPgs As New Collection
Dim pg As Visio.Page

For Each pg In ThisDocument.Pages

‘// Add non-background pages to the list:
If Not (pg.Background) Then
Call collPgs.Add(pg.Name)
End If

Next

‘// Return the collection-list of page names:
Set m_getPageList = collPgs

End Function

Private Sub CommandButton1_Click()
UserForm2.Show
End Sub

First, inside the Visio Document hit “Alt F11″ or click Tools> Macros> Visual Basic Editor. Either way you get there, once inside the VB Editor Click Insert> Module. Input the following text:

Option Explicit

Sub TableofContents()

‘// Creates a shape for each page on the first page
‘// Adds a Double-Click GoTo link for each page.

Dim PageObj As Visio.Page
Dim TOCEntry As Visio.Shape
Dim CellObj As Visio.Cell
Dim Posy As Double
Dim PageCnt As Double

‘// The below event creates a shape only for the purpose
‘// of being deleted. Without this the script would fail.

Set TOCEntry = ActiveDocument.Pages(1).DrawRectangle(1, Posy, 4, Posy + 0.25)

ActiveWindow.SelectAll
Application.ActiveWindow.Selection.Delete

‘// ActiveDocument.Pages.Count gives the number of pages

PageCnt = 0

For Each PageObj In Activedocument.Pages
If PageObj.Background = False Then PageCnt = PageCnt + 1
Next

‘// Loops through pages.

For Each PageObj.Background = False Then ‘ Only Foreground pages

‘// Positions the page entries.

Posy = (PageCnt – PageObj.Index) / 4+ 1

‘// Creates rectangle shape for each page entry.

Set TOCEntry = ActiveDocument.Pages(1).DrawRectangle(1, Posy, 4, Posy + 0.25)

‘// Inputs page name inside rectangle.

TOCEntry.text = PageObj.Name

‘// Add link pointing to the Page when double-clicking rectangle.

Set CellObj = TOCEntry.CellsSRC(visSectionObject, visRowEvent, visEvtCellDblClick) ‘ Start

CellObj.Formula = “GOTOPAGE(“”" + PageObj.Name + “”")”

End If
Next

‘// The following event selects the Table of Contents shape
‘// and centers it.

Application.ActiveWindow.SelectAll
Application.ActiveWindow.Page.CenterDrawing

‘// Clean Up
Set CellObj = Nothing
Set TOCEntry = Nothing
Set PageObj = Nothing

End Sub

I know how to place a drop down box, but i cant fill it. All i want to do is under each team name, to have a box with a drop down arrow next to it that lists the team names. No links or codes are necessary, but thats all i can find online!

now question:

is it possible to make same flowchart like this above but instead of pages in chart use shapes ? i mean shape names or something like that coz i am using visio for drawing and there i have huge number of shapes and i need quick way to zoom on one of them and flowchart will be best coz ctr+f feels like stoneage ……….

hope for response and some help
mabe some one can change code for shapes or mabe show me how to
make one.

Tim

If you say, have a three page document, then try this:

visio.ActiveDocument.Pages.Item(3).Index = 2

then the third page will move to the second location. The old page 2 will now be the third page in the document.

As far as the combobox goes, I’m not sure exactly what you want to do.

There *might* be a “sorted” property for the combo box that allows alphabetical sorting, and the .Add method might support a position index. These might be of use to you. But I haven’t looked at this in awhile.

ActiveDocument.Pages.Item(2).Index = (3)

with the combolist to do that?
Thanks
Rod.

- Runtime error ’424′:

Object required

And when I debug it goes to the line

cmbPages.Clear

in the Private Sub m_updatePageList() function

any help appreciated