Compartilhar via


Método Window.Close (Visio)

Fecha uma janela.

Sintaxe

expressão. Perto

Expressão Uma variável que representa um objeto Window .

Valor de retorno

Nada

Comentários

Se a janela indicada for a única janela aberta para um documento e o mesmo contiver alterações não salvas, aparecerá um alerta perguntando se você deseja salvar o documento. Use a propriedade AlertResponse para impedir que o alerta apareça.

Se você fechar uma janela de estêncil encaixada, apenas essa janela será fechada. Contudo, se você fechar uma janela de desenho que contém estênceis encaixados, a janela de estêncil encaixada também será fechada.

Exemplo

Este exemplo mostra como fechar todas as janelas ShapeSheet abertas. Ele presume que pelo menos uma janela ShapeSheet esteja aberta no 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.