通过

Documents.Add 方法 (Visio)

  • 项目

将新的 Document 对象添加到 Documents 集合。

语法

表达式。添加 (FileName)

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

参数

名称 必需/可选 数据类型 说明
FileName 必需 字符串 要添加的文档的类型或文件名;如果未包含路径，则 Visio 将搜索 在 Application 对象的 TemplatePaths 属性中指定的文件夹和所有已发布的模板，包括已发布的第三方模板。

返回值

文档

备注

要创建一个不基于模板的新绘图，请将空字符串 (" ") 传递给 Add 方法。

若要基于另一个文件（如模板）创建新绘图，请将原始文件的文件名传递给 Add 方法。 Visio 打开属于模板工作区的模具，并将与模板相关联的样式和其他设置复制到新文档。 如果模板文件名无效，则不返回任何文档并且生成错误。

要创建不基于模具的新模具，请传递 ("vss")。

注意

将文件名作为参数传递给 Add 方法等效于打开类似模板的文件，其中会创建一个新的空白绘图，其中包含从原始副本复制的内容。

示例

以下宏显示如何将 Document 对象（如模板、模具和绘图）添加到 Documents 集合。

运行此宏之前，用有效的 .vsd 文件替换 Myfile.vsd。

Public Sub AddDocument_Example() 
 
 Dim vsoDocument As Visio.Document 
 
 'Add a Document object based on the Basic Diagram template. 
 Set vsoDocument = Documents.Add("Basic Diagram.vst") 
 
 'Add a Document object based on a drawing (creates a copy of the drawing). 
 Set vsoDocument = Documents.Add("Myfile.vsd ") 
 
 'Add a Document object based on a stencil (creates a copy of the stencil). 
 Set vsoDocument = Documents.Add("Basic Shapes.vss") 
 
 'Add a Document object based on no template. 
 Set vsoDocument = Documents.Add("") 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。