通过

Window.GetWindowRect 方法 (Visio)

获取窗口客户区的大小和位置。

语法

expression。 GetWindowRect( _pnLeft_ , _pnTop_ , _pnWidth_ , _pnHeight_ )

表达 一个代表 Window 对象的变量。

参数

名称 必需/可选 数据类型 说明
pnLeft 必需 Long 窗口左侧的坐标。
pnTop 必需 Long 窗口顶部的坐标。
pnWidth 必需 Long 从窗口左侧到右侧的距离（以像素为单位）。
pnHeight 必需 Long 从窗口顶部到底部的距离（以像素为单位）。

返回值

Nothing

注解

GetWindowRect 方法用于获取窗口客户区的大小和位置（与拥有其所属 Windows 集合的窗口相关）。 对于 Application 对象的 Windows 集合，“相关”窗口是 Microsoft Visio 主窗口的 MDICLIENT 窗口。 对于 Window 对象的 Windows 集合，“相关”窗口为绘图窗口的客户区。

示例

下面的示例说明如何使用 GetWindowRect 方法获取 Window 对象的大小和位置。 该方法将打开“扫视和缩放”窗口，并在“即时”窗口中输出该窗口的坐标、宽度和高度。

Public Sub GetWindowRect_Example() 
 
 Dim vsoApplication As Visio.Application 
 Dim vsoPZWindow As Visio.Window 
 Dim pinLeft As Long, pinTop As Long, pinWidth As Long, pinHeight As Long 
 
 Set vsoApplication = Visio.Application 
 
 'Display the Pan & Zoom window 
 Set vsoPZWindow = vsoApplication.ActiveWindow.Windows.ItemFromID(visWinIDPanZoom) 
 vsoPZWindow.Visible = True 
 
 'Get the existing window size and position 
 vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight 
 Debug.Print pinLeft, pinTop, pinWidth, pinHeight 
 
 'Change the window height and get the new values 
 vsoPZWindow.SetWindowRect pinLeft, pinTop, pinWidth, pinHeight + 50 
 vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight 
 Debug.Print pinLeft, pinTop, pinWidth, pinHeight 
 
End Sub

支持和反馈

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