visio中相关设置-菜单视图

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) \'转到上一页

未完待续…