Window.GetWindowRect メソッド (Visio)

ウィンドウのクライアント領域のサイズと位置を取得します。

構文

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

式Window オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
pnLeft	必須	Long	ウィンドウの左辺の座標です。
pnTop	必須	Long	ウィンドウの上辺の座標です。
pnWidth	必須	Long	ウィンドウの左辺から右辺までをピクセル単位で示した距離です。
pnHeight	必須	Long	ウィンドウの上辺から底辺までをピクセル単位で示した距離です。

戻り値

なし

解説

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 のサポートおよびフィードバックを参照してください。