Visio (Window.SetWindowRect 方法)

會設定視窗之用戶端區域的大小及位置。

語法

運算式。 SetWindowRect( _nLeft_ , _nTop_ , _nWidth_ , _nHeight_ )

表達 代表 Window 物件的變數。

參數

名稱	必要/選用	資料類型	描述
nLeft	必要項目	Long	視窗左側的座標
nTop	必要項目	Long	視窗頂端的座標
nWidth	必要項目	Long	從視窗左側到右側以像素表示的距離
nHeight	必要項目	Long	從視窗頂端到底端以像素表示的距離

傳回值

無

註解

SetWindowRect 方法會設定視窗之用戶端區域的大小及位置，此視窗與擁有其所屬之 Windows 集合的視窗有關。 若為 Application 物件的 Windows 集合，「相關」視窗是 Visio 主視窗的 MDICLIENT 視窗。 若為 Window 物件的 Windows 集合，「相關」視窗則是繪圖視窗的用戶端區域。

當視窗為固定視窗時，SetWindowRect 會沒有作用。

範例

下列範例會顯示如何使用 SetWindowRect 方法設定 Window 物件的大小及位置。 它會開啟 [全景和縮放] 視窗，並在 [即時運算] 視窗中列出座標、寬度及高度。 然後，它會使用 SetWindowRect 來變更視窗的高度，並列印新的值。

Public Sub SetWindowRect_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 支援與意見反應。