1.获取或设置窗口中页面的当前显示大小(缩放系数)
Window.Zoom Dim dZoom As Double dZoom = m_Visio.Window.Zoom‘获取显示比例 m_Visio.Window.Zoom = 1‘设置显示比例
2.确定是否在窗口中显示形状连接点。可读写。
Window.ShowConnectPoints m_Visio.Window.Application.ActiveWindow.ShowConnectPoints = True ‘显示连接点
原文:http://www.cnblogs.com/wuyuan2011woaini/p/4145731.html