GetWindowRect Method [Visio 2003 SDK Documentation]

Gets the size and position of the client area of a window.

object**.GetWindowRect**pnLeft, pnTop, pnWidth, pnHeight

object     Required. An expression that returns a Window object.

pnLeft     Required Long. The coordinate of the left side of the window.

pnTop     Required Long. The coordinate of the top of the window.

pnWidth     Required Long. The distance in pixels from the left side to the right side of the window.

pnHeight     Required Long. The distance in pixels from the top to the bottom of the window.

Version added

2000

Remarks

The GetWindowRect method gets the size and position of the client area of the window with respect to the window that owns the Windows collection to which it belongs. For the Windows collection of an Application object, the "with respect to" window is the MDICLIENT window of the Microsoft Office Visio main window. For the Windows collection of a Window object, the "with respect to" window is the client area of the drawing window.

Example

The following example shows how to use the GetWindowRect method to get the size and position of a Window object. It opens the Pan & Zoom window and prints the window's coordinates, width, and height in the Immediate 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

Applies to | Window object

See Also | SetViewRect method | SetWindowRect method | ViewChanged event | WindowChanged event