Window.Close method (Visio)
Closes a window.
expression A variable that represents a Window object.
If the indicated window is the only window open for a document and the document contains unsaved changes, an alert appears asking if you want to save the document. You can use the AlertResponse property to prevent the alert from appearing.
If you close a docked stencil window, only that window is closed. However, if you close a drawing window that contains docked stencils, the docked stencil window is also closed.
This example shows how to close all open ShapeSheet windows. It assumes at least one ShapeSheet window is open in Microsoft Visio.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.