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.