Strange Visio Crash....Help?

Ok. here it is. I am creating fully automated diagrams in visio using an embedded excel spreadsheet. so there is a large amount of Visio code involved. The coding seems to be functioning as intended.

As part of the code, I have included in the 'document open' section, that upon opening all toolbars, page tabs, and scroll bars be hidden.

This works perfectly.

However, I have one page, that if my users goto, if they scroll the mouse either up or down, it crashes visio. EVERY time.
Now, if I enabled the scroll bars, scroll them, then disable the scroll bars, they are able to scroll all they want without a crash.

What is wierd is that it does not do this to me or one other user.

The only thing different about this page, is that it is set to zoom 175% upon 'document open' where the rest of the pages are set to zoom -1 (whole page view).

The question is, what is causing this crash to happen, and how can i prevent it?


Here is the code adjusting the view...even though I do not think it is the culprit at all.


Dim PageToIndex As Visio.Page
Dim curPage As Visio.Page
Set curPage = ActivePage
For Each PageToIndex In ActiveDocument.Pages
ActiveWindow.Page = ActiveDocument.Pages(PageToIndex.Index).Name
ActiveWindow.Zoom = -1
currentpage = ActiveWindow.Page
If Left$(currentpage, 4) = "Rack" And Left$(currentpage, 6) <> "Rack L" Then ActiveWindow.Zoom = 1.75
Next
Application.ActiveWindow.ShowGuides = False
Application.ActiveWindow.ShowConnectPoints = False
Application.ActiveWindow.ShowGrid = False
Application.ActiveWindow.ShowPageBreaks = False
Application.ActiveWindow.ShowPageOutline = False
Application.ActiveWindow.ShowPageTabs = False
Application.ActiveWindow.ShowRulers = False
Application.ActiveWindow.ShowScrollBars = False
Application.CommandBars("Web" ).Visible = False
Application.CommandBars("View" ).Visible = False
Application.CommandBars("Task Pane" ).Visible = False
Application.CommandBars("Stop Recording" ).Visible = False
Application.CommandBars("Stencil" ).Visible = False
Application.CommandBars("Snap & Glue" ).Visible = False
Application.CommandBars("Reviewing" ).Visible = False
Application.CommandBars("Picture" ).Visible = False
Application.CommandBars("Layout & Routing" ).Visible = False
Application.CommandBars("Ink" ).Visible = False
Application.CommandBars("Format Text" ).Visible = False
Application.CommandBars("Format Shape" ).Visible = False
Application.CommandBars("Drawing" ).Visible = False
Application.CommandBars("Developer" ).Visible = False
Application.CommandBars("Action" ).Visible = False
Application.CommandBars("Formatting" ).Visible = False
Application.CommandBars("Standard" ).Visible = False
Application.ActiveWindow.WindowState = visWSMaximized
ActiveWindow.Page = curPage