1.获取或设置窗口中页面的当前显示大小（缩放系数）
Window.ZoomDim dZoom As DoubledZoom = m_Visio.Window.Zoom'获取显示比例m_Visio.Window.Zoom = 1'设置显示比例
相当于visio中：视图-缩放。默认返回值是1（即100%），最小为0.1，最大为2.915。
2.确定是否在窗口中显示形状连接点。可读写。
Window.ShowConnectPoints m_Visio.Window.Application.ActiveWindow.ShowConnectPoints = True '显示连接点
相当于visio中：视图-显示连接点。
3.确定是否在窗口中显示网格。可读写。
Window.ShowGridm_Visio.Window.ShowGrid = True
相当于visio中：视图-网格。
4.确定是否在窗口中显示标尺。可读写。
Window.ShowRulersm_Visio.Window.ShowRulers = True
相当于visio中：视图-标尺。 5.确定是否在窗口中显示分页符。可读写。
Window.ShowPageBreaks m_Visio.Window.Window.ShowPageBreaks = True
相当于visio中：视图-分页符。
6.确定是否在窗口中显示滚动条。可读写。
Window.ShowScrollBarsm_Visio.Window.ShowScrollBars = visScrollBarBoth
| 常量 | 值 |
| visScrollBarNeither | & H0 |
| visScrollBarHoriz | & H1 |
| visScrollBarVert | & H4 |
| visScrollBarBoth | & H5 |
7.确定是否在窗口中显示参考线。可读写。
Window.ShowGuidesm_Visio.Window.ShowGuides = True
8.是否显示标签页控件。可读写。
Window.ShowPageTabsm_Visio.Window.ShowPageTabs = True
9.是否禁用缩放。可读写。
Window.ZoomLockm_Visio.Window.ZoomLock = True
10.显示宏模具窗口。
Application.DoCmd m_Visio.Window.Application.DoCmd (VisUICmds.visCmdShapesWindow)
11.DoCmd相关显示
m_Visio.Window.Application.DoCmd (VisUICmds.visCmdShapesWindow) ' 切换形状窗口显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdViewRulers) ' 切换标尺显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdViewGrid) ' 切换网格显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdGuides) ' 切换参考线显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdViewConnections) '切换连接点显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdViewPageBreaks) ' 切换形状窗口显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdViewPageBreaks) ' 切换视图与缩放窗口显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdPanZoom) ' 切换形状窗口显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdCustProp) ' 切换自定义窗口显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdSizePos) ' 切换大小位置窗口显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdDrawingExplorer) '切换绘图资源管理器窗口显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdView50) '切换缩放50%显示 'visCmdView50,visCmdView75,visCmdView100,visCmdView150,visCmdView200,visCmdView400'缩放固定比列 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdWindowShowDrawPage) '切换绘图页窗口选择显示 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdWindowShowMasterObjects) '显示主控形状 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdUFEditCopy) '拷贝 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdUFEditCut) '剪切 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdUFEditPaste) '粘贴 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdUFEditClear) '清除 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdUFEditDuplicate) '重复 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdUFEditSelectAll) '全选 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdUpdateContentCache) '全消 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdEditFind) '查找 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdTurnToNextPage) '转到下一页 m_Visio.Window.Application.DoCmd (VisUICmds.visCmdTurnToPrevPage) '转到上一页
未完待续…