visio中相关设置-菜单视图

1.获取或设置窗口中页面的当前显示大小（缩放系数）

Window.Zoom
Dim dZoom As Double
dZoom = 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.ShowGrid
m_Visio.Window.ShowGrid = True

相当于visio中：视图-网格。

4.确定是否在窗口中显示标尺。可读写。

Window.ShowRulers
m_Visio.Window.ShowRulers = True

相当于visio中：视图-标尺。

5.确定是否在窗口中显示分页符。可读写。

Window.ShowPageBreaks
m_Visio.Window.Window.ShowPageBreaks  = True

相当于visio中：视图-分页符。

6.确定是否在窗口中显示滚动条。可读写。

Window.ShowScrollBars
m_Visio.Window.ShowScrollBars = visScrollBarBoth

7.确定是否在窗口中显示参考线。可读写。

Window.ShowGuides
m_Visio.Window.ShowGuides = True

8.是否显示标签页控件。可读写。

Window.ShowPageTabs
m_Visio.Window.ShowPageTabs = True

9.是否禁用缩放。可读写。

Window.ZoomLock
m_Visio.Window.ZoomLock = True

未完待续…