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