Window.Close, méthode (Visio)

Ferme une fenêtre.

Syntaxe

expression. Proche

Expression Variable qui représente un objet Window .

Valeur renvoyée

Aucune

Remarques

Si la fenêtre indiquée est la seule fenêtre ouverte pour un document comportant des modifications non enregistrées, un message invite l'utilisateur à les sauvegarder. Utilisez la propriété AlertResponse pour empêcher l’affichage de l’alerte.

Si vous fermez une fenêtre de gabarit fixe, seule cette fenêtre est fermée. En revanche, si vous fermez une fenêtre de dessin contenant des gabarits fixes, la fenêtre de gabarit fixe est également fermée.

Exemple

Cet exemple indique comment fermer toutes les fenêtres ShapeSheet ouvertes. Il présuppose qu’au moins une fenêtre ShapeSheet est ouverte dans 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.