次の方法で共有

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