VBA issue : Display a specific page

[rafilamoule]

Hi,
I need to open a Visio document and display for the user a
specific page.

What I've tried :

Dim my_visio as New Visio.Application
set docObj=my_visio.documents.open("my_file.vsd")
set pagesObj=docObj.pages
for index =1 to max_pages
set specificPageObj=pagesObj.item(index)
if specificPageObj.name="page_i_want_to_display" then
!!!!! my problem is there !!!!!!!
end if
next index

The VBA code is working, I browse all the pages of the
document and identify the target one. I can even drop
object and do everithing I want on this page.
But how can I manage with VBA to display the target page
for the user ?

 

[al]

try something like this

' put the selected page into the active window
ActiveWindow.Page = strPageName