通过

Window.Close 方法 (Visio)

  • 项目

关闭窗口。

语法

表达式。关闭

表达 一个代表 Window 对象的变量。

返回值

Nothing

注解

如果指定的窗口是为某个文档打开的唯一窗口且该文档包含未保存的更改，将出现一条警告，询问您是否要保存文档。 使用 AlertResponse 属性可防止警报出现。

如果您关闭固定模具窗口，则仅关闭该窗口。 但是，如果您关闭包含固定模具的绘图窗口，则也会关闭固定模具窗口。

示例

以下示例说明如何关闭所有打开的 ShapeSheet 窗口。 该示例假定在 Microsoft Visio 中至少打开了一个 ShapeSheet 窗口。

 
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。