Window.Close メソッド (Visio)
ウィンドウを閉じます。
構文
式。閉じる
式Window オブジェクトを表す変数。
戻り値
なし
解説
指定したウィンドウが図面で唯一開いているウィンドウであり、その図面の変更内容がまだ保存されていない場合、図面を保存するかどうかを確認する警告メッセージが表示されます。 アラートが表示されないようにするには、 AlertResponse プロパティを使用します。
固定表示のステンシル ウィンドウを閉じる場合は、そのウィンドウだけが閉じます。 ただし、固定表示のステンシルを含んだ図面ウィンドウを閉じると、そのステンシル ウィンドウも閉じます。
例
この例は、開いているすべてのシェイプシート ウィンドウを閉じる方法を示します。 Microsoft Office Visio で少なくとも 1 つのシェイプシート ウィンドウを開いていることを前提としています。
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 のサポートおよびフィードバックを参照してください。