Método Window.Close (Visio)

Cierra una ventana.

Sintaxis

expresión. Cerca

Expresión Variable que representa un objeto Window .

Valor devuelto

Nothing

Comentarios

Si la ventana indicada es la única ventana abierta para un documento y éste contiene cambios sin guardar, aparecerá una alerta preguntándole si desea guardar el documento. Use la propiedad AlertResponse para evitar que aparezca la alerta.

Si cierra una ventana de galería de símbolos acoplada, sólo se cerrará dicha ventana. Sin embargo, si cierra una ventana de dibujo que contiene galerías de símbolos acopladas, también se cerrará la ventana de galería de símbolos acoplada.

Ejemplo:

En este ejemplo se muestra cómo cerrar todas las ventanas ShapeSheet abiertas. Se da por supuesto que hay como mínimo una ventana ShapeSheet abierta en 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.