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

常量	值
visScrollBarNeither	& H0
visScrollBarHoriz	& H1
visScrollBarVert	& H4
visScrollBarBoth	& H5

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

Window.ShowGuides
m_Visio.Window.ShowGuides = True

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

Window.ShowPageTabs
m_Visio.Window.ShowPageTabs = True

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

Window.ZoomLock
m_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) '转到上一页

未完待续…