How do i fill a combobox in Visio 2003?

[Rutger Scherpenhuysen]

I have put a combobox into my Visio drawing. But i can't manage to fill it up
with links to other pages from my Visio drawing. Can anybody help me? mailto:
(e-mail address removed)

Regards,
Rutger

 

[Chris Roth [ Visio MVP ]]

I assume you're using VBA?

Try something like this:

Sub FillIt

Dim pg as Visio.Page

For Each pg in Visio.ActiveDocument
cmbBox.Items.Add(pg.Name)
Next

End Sub

Sub cmbBox_SelectionChanged_orWhatever

Visio.ActiveWindow.Page = cmbBox.SelectedItem.Text ' or something
similar

End Sub

--

Hope this helps,

Chris Roth
Visio MVP