Hiding the Pagetab

[Nils Schacht]

Hello again,

i don't how to hide the Pagetab an the bottom of my VisioDrawingControl or
how i can catch the mousebutton Event on the Pagetab.
Can somebody give me a hint?

Greetings

Nils

 

[Paul Herber]

Hello again,

i don't how to hide the Pagetab an the bottom of my VisioDrawingControl or
how i can catch the mousebutton Event on the Pagetab.
Can somebody give me a hint?

Can't be done.

 

[JuneTheSecond]

page tab could be hidden for example,
Sub test()
ActivePage.PageSheet.Cells("UIVisibility").FormulaU = "1" 'Show 0, Hide 1
RefreshPages
End Sub

Sub RefreshPages()
Dim ThisPage As Visio.Page
Dim AnotherPage As Visio.Page
Dim myPage As Visio.Page
Set ThisPage = ActivePage
For Each myPage In ThisDocument.Pages
If Not myPage Is ActivePage Then
Set AnotherPage = myPage
Exit For
End If
Next
If Not AnotherPage Is Nothing Then
ActiveWindow.Page = AnotherPage
ActiveWindow.Page = ThisPage
End If
End Sub

 

[Paul Herber]

My apologies, I didn't know that.

page tab could be hidden for example,
Sub test()
ActivePage.PageSheet.Cells("UIVisibility").FormulaU = "1" 'Show 0, Hide 1
RefreshPages
End Sub

Sub RefreshPages()
Dim ThisPage As Visio.Page
Dim AnotherPage As Visio.Page
Dim myPage As Visio.Page
Set ThisPage = ActivePage
For Each myPage In ThisDocument.Pages
If Not myPage Is ActivePage Then
Set AnotherPage = myPage
Exit For
End If
Next
If Not AnotherPage Is Nothing Then
ActiveWindow.Page = AnotherPage
ActiveWindow.Page = ThisPage
End If
End Sub