通过

Viewer.OnViewChanged 事件 (Visio Viewer)

  • 项目

在 Microsoft Visio Viewer 中更改当前页视图时发生。

语法

表达式。OnViewChanged (PageXAtViewCenter、 PageYAtViewCenter、 ZoomFactor)

表达 返回 Viewer 对象的表达式。

参数

名称 必需/可选 数据类型 说明
PageXAtViewCenter 必需 Double 页面中心的 x 坐标（以绘图单位为单位）。
PageYAtViewCenter 必需 Double 页面中心的 y 坐标（以绘图单位为单位）。
ZoomFactor 必需 Double 缩放 () 页面大小乘以的因素。

返回值

Nothing

注解

页面视图由页面的中心点（以 x-y 页坐标表示），坐标系统原点位于页面左下角，缩放因子（以数字百分比表示），范围从 1% 到 400%。

可以使用 GetPageView 方法在 Visio Viewer 中获取当前页视图，并且可以使用 SetPageView 方法以编程方式设置页面视图。

示例

以下代码演示如何使用 OnViewChanged 事件在“即时”窗口中显示新的页面视图数据。

Private Sub vsoViewer_OnViewChanged(ByVal PageXAtViewCenter As Double, ByVal PageYAtViewCenter As Double, ByVal ZoomFactor As Double)

    Dim dblXPoint As Double

    Dim dblYPoint As Double

    Dim dblZoomFactor As Double

    vsoViewer.GetPageView dblXPoint, dblYPoint, dblZoomFactor

    Debug.Print "New x-coordinate is:"; dblXPoint

    Debug.Print "New y-coordinate is:"; dblYPoint

    Debug.Print "New zoom factor is:"; dblZoomFactor

End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。