Adding Page to page hyperlink with programming

[Glen]

Does anyone have an example of adding a page to page
hyperlink using VB? Adding the off-page connector from a
stencil causes a dialog to come up and I would like to
get around that by adding hyper links after the chart
pages are complete. Any help would be appreciated.
Thanks
Glen

 

[Chris Roth [ Visio MVP ]]

You want a hyperlink on the page itself?

Here's some basic code to get you started:

Sub x()

Dim s As Visio.Shape
Set s = ActivePage.PageSheet
Dim h As Visio.Hyperlink

Set h = s.Hyperlinks.Add
h.Address = "http://www.theonion.com"

End Sub



--

Hope this helps,

Chris Roth
Visio MVP

 

[Glen]

What I want to do is emulate the action of a off-page
connector in VB code. Click on a shape and go to a shape
on another page.