Window.Close-Methode (Visio)

Schließt ein Fenster.

Syntax

Ausdruck. Schließen

Ausdruck Eine Variable, die ein Window-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Wenn es sich bei dem angegebenen Fenster um das einzige geöffnete Fenster für ein Dokument handelt und das Dokument nicht gespeicherte Änderungen enthält, werden Sie mit einer Warnung gefragt, ob Sie das Dokument speichern möchten. Verwenden Sie die AlertResponse-Eigenschaft , um zu verhindern, dass die Warnung angezeigt wird.

Wenn Sie ein verankertes Schablonenfenster schließen, wird nur das Fenster geschlossen. Wenn Sie jedoch ein Zeichnungsfenster schließen, das verankerte Schablonen enthält, wird auch das verankerte Schablonenfenster geschlossen.

Beispiel

Mit diesem Beispiel wird gezeigt, wie alle geöffneten ShapeSheet-Fenster geschlossen werden. Dabei wird davon ausgegangen, dass mindestens ein ShapeSheet-Fenster in Microsoft Visio geöffnet ist.

 
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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.