Visio) (Window.Close 方法

會關閉視窗。

語法

運算式。關閉

運算式 代表 Window 物件的變數。

傳回值

無

註解

如果指定的視窗是文件唯一開啟的視窗，且文件包含未儲存的變更，則會顯示警示，詢問您是否要儲存文件。 使用 AlertResponse 屬性來防止警示出現。

如果您關閉固定的樣板視窗，則只有該視窗會關閉。 不過，如果您關閉包含停駐樣板的繪圖視窗，停駐樣板視窗也會關閉。

範例

這個範例會示範如何關閉所有開啟的 ShapeSheet 視窗。 此範例會假設在 Microsoft Visio 中至少有一個 ShapeSheet 視窗是開啟的。

 
Public Sub Close_Example() 
 Dim intCounter As Integer 
 intCounter = Windows.Count 
 
 'Close all ShapeSheet windows that are open. 
 While intCounter <> 0 
 If Windows(intCounter).Type = visSheet Then 
 Windows(intCounter).Close 
 intCounter = Windows.Count 
 Else 
 intCounter = intCounter - 1 
 End If 
 Wend 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。