Метод Window.Close (Visio)

Статья
04/07/2023

Закрывает окно.

Синтаксис

expression. Закрыть

Выражение Переменная, представляющая объект Window .

Возвращаемое значение

Отсутствует

Примечания

Если указанное окно является единственным открытым для документа и документ содержит несохраненные изменения, появится оповещение с запросом на сохранение документа. Используйте свойство AlertResponse , чтобы предотвратить появление оповещения.

Если закрыть закрепленное окно набора элементов, закрывается только это окно. Однако при закрытии окна рисования, содержащего закрепленные наборы элементов, закрепленное окно набора элементов также закрывается.

Пример

В этом примере показано, как закрыть все открытые окна таблицы фигур. Предполагается, что в 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через